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®JUl JiuuJJ 

TCP/IP Lavers Encapsulation Overview : 1.1 

AjuJiO JLzjjl C(JLjuU3 jjlC L^052J gjo AjLaJuO i JjO CLC3 jO^%jO St 5\^> CLSuljJuJI ul l_93jS£rxJI ,JjO 

cls^jljuuu jjoJ v_svjJI 3 JLajJI AJLxsdOSI AoJcLuoJ cJ^^s^oJI /xj_ajajlJI LujJ £jAJl^juj Lri> QJ 03 
^.cdLuu^JI oULJI ^^JLc Headers _S L^ 9 Lol /xju Alaso AajJi >3 L^juo AaJo JJJ olaJo 
lolaJaJI OAa> AaSjjoJI 6j$^x)\ 0 -+V 3 TCP/IP J 3 S 3 JJJ v_sv3 olaJo Ajuuux> ,_sJI ld>_)Lai>l 


OSI TCP/IP 


Application 

Applications 

SMTP , POP . HTTP . FTP 

Telnet. DNS 

Presentation 

Session 

Transport 

Transport 

TCP UDP 

Network 

Internet 

IP ICMP IGMP. ARB.RARP 

Data Link 

Network Interface 

Physical 

Hardware 


gjo JoLszJI La> 1^^333 Application Layer Jl ^9 aJLuujjoJI aILuj^JI ULJ3J AJL>x Luj 
v_s^a9 1 <tSJljuuJI jjs. L^JLujjl li >Sucu Data ^^Jl < a2j-co 0- 0 l^JL^eJs tp^JLaj AlLuujJI 
1 jjo Ac-3jo^%jo /xj ASCII Code l _sU| i_J3jiSuoJI ^yajJI Jj3J5«j /yJj Chat AjuuijjJI oLoejOjj 
A aJo J cujj sSjJl3 Socket j+c IpJLuuj^ qs^Jl^uo i_s ^9 S-03J Bits Jl 3I Binary Code 

v^JLJI JSLaAJI 5^3j 3 Internet Layer Jl 3I Network Layer Jl gjo Transport Layer Jl 

: SocketJI Jjxc As^Jo 


Server 



ServerSocket( port#.timeout ) 

1 

accept!) 


Cliente 

Socket! host .port#) 



uuipuioircQin 


► L/UTpuToTream 

Input Stream 


- InputStream 

close!) 

close!) 


Network ^ Destination IP gjo Transport Layer ^ iJctoJI PortJI pSj o^> 
c CaJc>3 j^clL aJ3 ClientJI aJLb ,_sJLc Aas^L JjlaoJI ^j^klL ServerJI Layer 
fij Ujua^j />jj. vjnJI Socket Option Jl gjo PortJI /&_> Jqjj ServerJI ^3 SocketJI 
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Jo3>ajj g-03 c 'J^ > >oJI OJoi v_s^9 ijSjojc) , pj sSjJI PortJI l _yJLc OJu^bJI PjJLxxszj cJuJI 

J5 Ljuuu Aa9l3joJI 3! cuLuj Lo 3! Authentication Jl I oLJLxc Jjlo AaJLJI J3jloJ <Jjao 

._>juIjLjO 

:oUJj Ai\L, Jl upper Lavers Jl >oj OSI p-iw ^3 

User Interface 1 _ S vjoouuu Lo 3I gooL^JI gjo JolsJ Application 

i_sJI oULJI LajLuj Lo^ v_s^5>3 qJLuj_)joJI oULJI JjjjoJ Presentation 

l JjJuOj tuJLxxC pJj OjJ O3JI v_S\9 1 3I OULJI J02*J k_jJLujl p\. JlZ^jLjuJ I 3I ASCILJI 

: Sr sJL Lo5 ASCIIEncoding ClassJI />Ijc*iOujL BinaryJL AJL^-JI 


C# 

String str=Console.ReadLine(); 

ASCIIEncoding asen= new ASCIIEncoding(); 
byte[] ba=asen.GetBytes(str); 

VB.NET 

Dim str As String = Console.ReadLine 

Dim asen As ASCIIEncoding = New ASCIIEncoding 

Dim ba As ByteQ = asen.GetBytes(str) 


qjs ) u £isJI p^zslkj Ojj^JI 3 ,jjj Lp-JI ’-j-L’L^JI AjJLxsli cjJI 1^93 Session 

... (cUJbJI 

/>3ijj S5JI3 Application Layer AoJd laiS^ TCP/IP Jl J3S3J3JJ Lot 

ol3.la> 6 asj tOjuJLsJI 2-^3 > -9>sJI pju Session Layer <^s < OSI v_s^9 ^^3^1 cjYUJI oLqJJI 

: v_JU Lo5 v_s\j2>3 

aJLxc juJlsj As; JJi3 iji^ejoJI PortJI 3 IP Jl jjo Server JL v_sJjuuJI JL^jJI cl>>l - 1 

.TCP ><x 3! UDP j+c cI3juj JL^uJI 
JU:> ServerJI aJk; lil Authentication Jl Jo^3 I -2 

L^o 9 j 3I AjuuJLsJI QJ 3 ljJLc Aii9l3jJI JLuujL JUi> p^J .3 AjJLsJI 3I J3J -3 
gijoLjJL ^UJI PortJI l _sJLc Listening Jas-j ServerJI AaJLJI Iju -4 
: TCP Protocol Jl />Ijc«jljujL AqJoJI oJi> Jac JLa Ll£>3 


C#: 

TcpCIient tcpclnt = new TcpClient("192.168.0.2",8001); 


VB.NET: 

Dim tcpclnt As TcpCIient = New TcpClient("192. 168.0.2", 8001) 

Client (J-juujjoJI jL^> />3J sJoLsJI aJaszj CJJI3 AaJLsJI qjs ^jJLc Aa9l3AJI pjj Lojjlc 
AjJlxj pJj 4JL.JJI OJai v_s^3 Transport AiiJo Lui> V_svai3 i-S_>>\)l AaJaJI ^^Jl AJLujjJI Jjjoc%o 
UDP - Connectionless Jl ^ 3I TCP - Connection Protocol j+c JLojJI AsuJa 

JL^uJI P01T3 J_ALLjuuuoJI3 J_ujjjJI Loj 3>3 JuJatJ pJj, J3JI v_sva9 Protocol 

ssl ol S:5 0 lS2j lJa>3 Broadcast 6>^>\ll J5 J_alj^aaJI vJ^LJI 03J ot ^JaJ UDP Jl Lot 
JjxC i jjo i _Juoj LcxS < AJLujjJI JLai-ujI gJcLLjuuu Port Jl lAfli jjX Ouuzjju p$su 
PortJI pSj §jo Multicast IPJI 3I Broadcast IPJI JJ^ ^3 < MulticastingJI 

... SocketJI 
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/>$su, _>d>L> Class OJ O3J1JI v_S^9 TCPJI jjlC tlSuLjudJI jj£. AJLuUjJI JL^Vs 

JLuj_;l3 JL^u\JI ciJLjuj3 8 r° JjolajJI yX J3 j_ajuuoJI 3^13 NetworkStream 1 _jvj&_* j ju 3 AJLxsJI 
JUuo^3 ci-AjjLflj Socket Jl 3I t Stream Data QSJjju v_sOLaoJI vj^UI t _5\JI aJLuj^JI 

:jJJi tjJLc 


C#: 

NetworkStream mynetsream = tcpdnt.GetStream (); 

StreamWriter myswrite = new StreamWriter (mynetsream); 

myswrite.Writel_ine("Your Message"); 

myswrite.Close (); 

mynetsream.Close (); 

tcpclnt.Close (); 


VB.NET: 

Dim mynetsream As NetworkStream = tcpdnt.GetStream 

Dim myswrite As StreamWriter = New StreamWriter(mynetsream) 

myswrite.WriteLine("Your Message") 

myswrite.Close () 

mynetsream.Close () 

tcpclnt.Close () 

J^ujjjoJI 0I3JLC §*£>33 AJLujjJI A;3 jlc /yju il Network Layer i^sJI /JLuuu jJJi 
o-°3 Physical Tunnel Jl IpJLujjl />j_J ccaJoJI l _sJI /JLjju3 L^jJLc J_iLiiAjuuuoJl3 

... IP,IPv6,ARB-Address Resolution Protocol L^JLc AJLucAJI 
ujaSLJU ^^3 ol&Ja-ll u jUL ^-' _;3 jjoJU />$su 9 Server Jl J. jl^LcjuULoJ I j IgJsJU CU-juUUiJ Lo I 
/yj Transport /J Network /J Data link ^1 J3JSJ Bits Jl /xkjuuu 

§u^3j ^35JI ljui>3 .. Text ^_sJI ASCII 0-03 ASCII ^1 Binary ^ J3JXJ 1^03 Application 

: Server Jl Jxxc Ijuuo 


C#: 

TcpListener myList=new TcpListener( 5020 ); 
myList.Start(); 

Socket s=myList.AcceptSocket(); 

NetworkStream myns = new NetworkStream (mysocket); 

StreamReader mysr = new StreamReader (myns); 

Console. Write (mysr. Read Li neQ); 
s.CloseQ; 

VB.NET: 

Dim myList As TcpListener = New TcpListener( 5020 ) 
myList.Start() 

Dim s As Socket = myList.AcceptSocket() 

Dim myns As NetworkStream = New NetworkStream(mysocket) 

Dim mysr As StreamReader = New StreamReader(myns) 

Console. Write (mysr. Read Li neQ) 
s.CloseQ 

ServerJL ^Gdl MAC AddressJI 0I3JLC ^ Jl3_wuu J-juj^joJI Aj3jLsJI AJLxc J>>! 
J3S3J3JJJI \ia> />3su3 ARP-Address Resolution ProtocolJI ^ AJLo^JI t>\& />jj 9 

/>3jjj />jlc aJL> v_s^ 3 MAC TableJI v_s\S MAC AddressJI ±3^3 0- 0 
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IP Jl 1^9 jLuu Jd ^sJI ARB Broadcast Message RequestJLuujL 

L^s ICMP Message ^solsloJI jl^JI J-juu* ojl> 3 lite qJ JLujjVI ^l>°JI Address 
v_s\9 v_sOLSioJI ol^jtsdl />$su. AJLujjJI aszj3 qj ^bJI MAC AddressJI 013^^ 

!v_sJUI JSLlUI Jd>\J i oIjjoJI v_s^ 9 ^Ijcti-juul <_s^SU3 ^ A^>bsJI MAC Table 




Internet Encapsulation^ o s^jj Jjs> EncapsulationJI ^ />jj Al^oJI o±& 

J 5 2^>3j ^sJUl J5 LaJJI 3 Data Link LayerJI dU:> ^3 Ethernet Encapsulation 3I 

iO LdLcxszJ I £>ju5i 


APPLICATION LAYER 



- Message or stream of data 


- Transport Protocol Packet 


- Network Layer Datagram 


- Ethernet Frame 


PHYSICAL NETWORK 
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LxxS PacketJJ />UJI J^LuaJI 03SJ A;lp_JI v_s\S3 


Network Packet 


Ethernet 

Header 


IP 

Header 


TCP 

Header 


DATA 


JLujjVI S^-jox- 3 EthernetJI />ljct/_jujlj JLujjJI ciJjo^c (jjjjjjjJI v_0«j3 
aszj JLuujVI skxc />jj EthernetJI «ui ij Serial Connections 3! InternetJI 
tjuuo ^3 J3-03JI /x_u9 InternetJI ^9 lot ARPJI /jIjc^jujU >>\)l vJ^kJ MAC AddressJI 

t^sJUl JSLjcJI k>\J PPP - Point to Point ProtocolJI 



out 60 ^>11 20 0-0 HeaderJI px> ^1 >03 DataJI ,_yJLc Header A9IS /x_j Asl k J 5 vjvs 

.Header Jl ,_sJI v^JI OptionsJI 

Packet Jl aJjo^zj gu>l-oj 3^3 EtherealJI gpot^j />l. \j /> C)JijLJUJ v_sJUI JLiuoJI v_S \3 

:3^>3 <aj (j^taJI §93 joJI qjo c ujjJj SSJJI3 Sniffer 

http://www.ethereal.com/download.html 
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: HTTPJIg DNS-JIg ARBJI >oIa^J , Lie JLo 


Interface CardJI />^oj sSjJl3 EtherealJI sjoU^j ^sJUI JSLJI Ia>\J 

: Internet ExplorerJI /jIjc^ujU GoogleJI gJgjo ^sJL J$>jJI cJLu L>s o_h» 


8 12.623675 10.0.0.10 

Broadcast 

ARP 

Who has 10.0.0.138? Tell 10.0.0.10 

9 12. 623915 10.0.0.138 

10,0,0.10 

ARP 

10,0.0.138 is at Q0:0e:50:8d:f2:50 

1012.623922 10.0.0.10 

81.10.124.2 

DNS 

standard query A www.google.com 

11 12.682926 81.10.124.2 

10.0.0.10 

DNS 

standard query response CNAME ml.google.com A 64.233. 

1212,084542 10.0.0,10 

64,233.183.103 

TCP 

1717 > http [SYN] Seq=0 Ack=0 Win=65 53 5 Len=0 N5S446Q 

13 12.813988 04.233.183.103 

10.0.0.10 

TCP 

http > 1717 [SYN, ACK] Seq=0 Ack=l Win=8190 Len=0 MSS44 

14 12.814031 10.0.0.10 

64.233.183.103 

TCP 

1717 > http [ACK] Seq4 Ack4 Win=65 53 5 Len=0 

15 12.814201 10,0.0,10 

64,233.183,103 

HTTP 

GET / HTTP/1,1 

16 12.974801 64.233.183.103 

10.0.0.10 

TCP 

http > 1717 [ACK] Seq4 Ack=346 win=784 5 Len=0 

17 12.976418 64.233.183.103 

10.0.0.10 

TCP 

TCP window update, http > 1717 ack. seq=l Ack-346 win= 

18 13.027054 64.233,183.103 

10,0,0,10 

TCP 

[TCP segment of a reassembled PDU] 

19 13.033358 64.233.183.103 

10.0.0.10 

HTTP 

HTTP/1.1 200 OK (text/html) 

20 13.033388 10.0.0.10 

64.233.183.103 

TCP 

1717 > http [ACK] Seq=346 A.ck=1677 Win=65 53 5 Len=0 

21 14.013510 PlanetTe_30:6e:c9 

spanning-tree-(for stp 

RST, Root = 32768/00:12:a9:67:23:20 Cost = 200000 Port 

22 16.015309 PlanetTe_30:6e:c9 

spanning-tree-ffor stp 

RST. Root = 32763/00:12:a9:67:23:20 Cost = 200000 Port 

23 16.229503 10.0.0.10 

64.233.183.103 

TCP 

1717 > http [RST, ACK] Seq=346 Ack4677 Win=0 Len=G 


Li 3^3 GatewayJU ^LJI MAC AddressJI o-c Jl^uJI oul 5 AJLc J3I ol L>\J 
/>l9 <L«tdl LLxsdl ^ 3 $ Broadcast Messaged aJLj^JI oJLuJ 10 . 0 . 0.138 
oLi a sj ^LJI MAC AddressJI ARP RequestJI i^U RouterJI 

DNS Request Query JLujL GoogleJI ^ ClientJI />ssu-^ AJLsdl 

6^3^>3joJI 3 DNS TableJI ^3 GoogleJU ^bJI IP AddressJI jo 5 as JLoJI ^3 col Jo^J 
JUi t.yJLc l _]_*J jJI3 JjS i jjo GoogleJI i^sJL J3 j>jJI /o col v_sOlej Ijlq>3 Jj^juoJI />lldj o- 0 ^ 
§%*> />l9 LLxsJI oLi jlsl« 3 DNS TableJI ^s3 ^3^ GoogleJU ^bdl IP AddressJI ol 
8 i >o oULo^JI ol Jd>\J ^jlsjoJI ol3Jtsdl qjo^3 o^3>3j oj+zu cLLUdl ,_jJL ^>JU GoogleJI 
/0J3 GoogleJI ^30^ A^LJI A^lq^oII oI^jcsjoJ JLujjI 3 c_Jlo oUJUxc i_s^> 20 ,_jJI 

.HTTP Protocol Jl />ljdtOuuU 



10.0.0.10 

TCP 

■30 


16 12.974801 

64.233.183.103 

http > 1717 [ACK] Seq=l Ack=346 Win=7845 

18 13.027054 

64.233.183.103 

10.0.0.10 

TCP 

[TCP segment of a reassembled pdu] 

19 13.033358 

64.233.183.103 

10.0.0.10 

HTTP 

http/ 1.1 200 OK (text/html) 

20 13.033388 

10.0.0.10 

64.233.183.103 

TCP 

1717 

’ > http [ACK] seq=346 Ack=1677 Win=65 

21 14.013510 

PlanetTe_30:6e:c9 

spanmng-tree-(for stp 

RST. 

Root = 32768/00:12:a9:67:23:20 cost 

22 16.015309 

PianetTe_30:6e:c9 

Spanning-trpp-ffnr STP 

R5X. 

Root = 32768/00:12:a9:67:23:20 Cost 


i Raffle 15 (399 bytes on wire, 399 bytes captured) 
i/Ethernet II, Src: 10.0.0.10 (00:11:09:d0:13:21), Dst: 10.0.0.138 (00:Oe:50:8d:f2:50) 
internet Protocol, src: 10.0.0.10 (10.0.0.10), Dst: 64.233.183.103 (64.233.183.103) 
i Transmission control Protocol, src Port: 1717 (1717), Dst Port: http (80), seq: 1, Ack: 
1 Hypertext 
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TCP / UDP Connection Establishment: 1.2 


JLuujL J_jujjjoJI v_9jJqJI bilszJI v_s 03 iJj>IjjoJI 1 jjo JLoj\JI cLojuI cqJLxc pxj 

JLujjL cJuJI pjj JLzij\JI cl>>l l __ssJLc- cuisl^joJI julc-3 v_9jJqJI ,_sJI JI cLjjul ^jJLIo 

Qj)Juj cqJjo^JI dAdi plj TCP Jl J3S3J3JJ v_s ^9 1 JjjiijuuuoJI i- 9 _)JaJI t^JI 0I03I2J0JI 1 jjo clC3jo^%jo 
ivjJLII JSaaJI ^9 &p \ 3 3^ lo 5 3 Three-way hand-shake 



(l) Initial sequence 
number and 
other data 


Initiating 

host 

Target sequence ( 2 ) 
number + ACK of ^ 
initiating host’s 
sequence number 

Target 

host 


( 3 ) ACK of target 
sequence number 



«_sJI <*Lujjj 3 Sequence Number ^^JLuoLuoJ p9j .u^ J-juj>oJI <j9j JoJI />$su -1 

julc 1 jIacjoj ctoLj pjj JLujjVI AjJLxsJ cjuJI AJaAi JJ30JI />Sj .II lAdi 03SU3 ServerJI 

. J Ljujjj cuLcxX: dS 

i_sJJ Acknowledgment JL^L p^s Sequence NumberJI JjUloJI vjjJoJI /xkjuuu -2 

^ULjujjI pj lSjJI p9jJ\ c cJI kjLkxo (J-jujjjoJI 

cqJLIo JLujjL p9su Ii2)JulC 3 AjuuJbJI Iju i_ssJLc- c Cq 3 I 3 joJI pj 99 O3SJ cJjs-jjoJI oAdi JulC -3 
.J^juuuoJI Jx9 o^o J-ujI sSjJI Acknowledgment Jl .js^o 

ojo UDPJI \>9 Acknowledgments JLujjI o 3 ju pjj9 UDP Jl J3S3J3JJ Lot 
I Adi v jjo v_sJUI cjjsJI i_s \3 £ Csul«03j Lo 3^3 TCPJI i_s \9 Jbdl 3^ loS I 0LL0X 

.J^dJI 


TCP & UDP Header Encapsulation : 1.3 

Gu> UDPJI 3 \ TCP 0J3S3J3JJI lSjoI §jo JjoLszJI pjj Transport LayerJI AaJo ^9 
3^) JLujjJI £,3^3 Stream^ JLuujJI 3^ i^JUaxdl ol 5 lib JLujjJI AsjjJo 1^9 999^-uj 
3I Broadcasts JLuujJI 9^ v^tlaxJI oS AJb> ^9 Lot TCPJI ^L^l pjuS Unicast 
J-zioJI lAdi 1 jjo v_sOLJI I k_s 3 q+j v_93-uj 3 < JLujjJI AJLo^J UDPJI jLaj>I p ^9 Multicast 

... UDPJI J3S3J3JJ3 TCPJI J3S3J3JJ /)|jctAJujt JLuu_j\JI AJLox Ijuuo 
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TCP Encapsulation : 1.3.1 

J 5 L; IJlq> jjjoju cl^p*- TCPJI />Ijc«jljujIj JIau\JI cpJI Ia^> i_ss 9 0^ cjjgjuu 

oLJLjxc />£ju loJ BufferJI /ct> 3I Data Flow <_S3 jljuuuo ^jJLc eb^uj /sSJ%JI oLJjjxc 
H eader j 0-0 ev^b Ia&q Delivered on Sequence oJLuJI ejuj>JI ,933 Ja^>JI ,>0 

:pJUI JiLjjJI ^1 >i cu c^bJi 


Header 

Data 

Source port address 

16 bits 

Destination port address 

16 bits 

Sequence number 

32 bits 

Acknowledgment number 

32 bits 

HLEN Reserved u a P 
res 

4 bits 6 bits a k h 

r s f 
s y i 
t n n 

Window size 

16 bits 

Checksum 

16 bits 

Urgent pointer 

16 bits 

Options & padding 


: Source & Destination Port 1.3.1.1 

AJLxc eSp%j sSjJI QjobjJU q^sbJI Destination PortJb Source PortJI jua^j />aj o^e> 
pj\) PortJI /x3j (jjULflj yol JCSAjjjl gjoljjj QjO ^ I C^pioJI QJ03 JIauJI 

c^uaJJ PortJI jLa>I 0I9 < Port Address pjO jjS\ />l-\AiAjujl Jl>I 3 JI £ijoU^JJ 

js\s_)\ Igjl il 1023 v_s^a*j3 0 -j IjlJ v_saJI /)lSj\JI qs^ ilsijJI v_pej cul Cap*- Apb-CAc 
HTTPJI J3S3J3 ^j Lg_JLc AlioJI OJ03 J^uuuJI />Lku p \3 L^_ol asajuuI qs^jszx> 
jac jAiflJ3 i£>jjX3 21 PortJI ^ Jl^jLjuUU eSjJb FTP Jl J3S3J3JJ3 80 PortJI Jl^jLajUU sSjJb 
: v_sJLJ I JfLpJI ejJl ^Jiul 49.151 (>c Jjd tjuu \) ol PortJI jLa>I 


o 1 .023 



1.024 


Well-known 


Registered 

\ 


49.152 65.535 



Dynamic 
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: Sequence & Acknowledgment Number 1.3.1.2 

tJLujjl julc PacketJJ JjuuJLuulJI pSj ( _sJLc /xS^JI l-Li> Jjl>3 32 Bits ^jJLc Lxgjuo iS^xzjc) 
Acknowledgment Jl pSj Lot JLajJI 4 jI_v xx. LjIs^Julc ojJsj jxj$ qJLajuJ 3! 
v_s^9 L >5 tcJLxxsdl oAfli /UJ3 <^3^3 i jjo _vSUI />j lSjJI Packet JU i^sJjuoJLuulJI /> 3 >JI i_svJLc- 

:^JUI 


Sender 


Receiver 




4000 




Buffer 

1000 3000 




Buffer 


Time 


Time 


: Header Length & Validation Controls 1.3.1.3 

Windows Jl JLc Ao^uoLio 32 Bits^_sJLc TCPJL ^bdl HeaderJI 0-0 v^LJI c>=dl ^3^3 

16 Bits Header Length + Validation ControlsJl3 Size 16 Bits 

I v_sJ LJI J^LuuJI v_sc 9 3^) Lo^3 


HLEN 

Reserved 

u 

a 

P 

r 

s 

f 

Window size 

4 bits 

6 bits 


k 

h 

t 

y 

n 

n 

16 bits 


qs^s-oJ csl 4 ,jn 1 c /)3juuLiLo TCPJL ^LsJI HeaderJI j*x> Header LengthJI ^3^3 
J 5 job 6 Controls Validation ControIsJI Lot < 4 _r HLENJI HeaderJI /ct> 
Ijl^ 9 1 Cjl5 li |3 AoJuj^Uuduo oliJI OAfli ul v_sOl sj Ia 35 0 c UjcxjS ojU lists 1 Bit L^Juo 

■ SrsJLJI J^LujJI v_sv 9 Lo^3 4 joJl>^Ujjuo cli\JI dJui ul v_sOlS2j 


URG: Urgent pointer is valid RST: Reset the connection 

ACK: Acknowledgment is valid SYN: Synchronize sequence numbers 

PSH: Request for push FIN: Terminate the connection 


URG 

ACK 

PSH 

RST 

SYN 

FIN 


19 











































: Window Size 1.3.1.4 

Jc^jjJI ci£j_juj ,_jvlc cLj tiSuLJuuJI JYL> qjs cJLujjl sSjJI PacketJI /ct> cus ^ 9 jsu^ 
Packet JSJ J^sJI sJLo^J J>^uoJI 0S3JI sst < ACK Packet 3 SYN Packet J5 c*-> 

.ASL A-JUJ. Jl AJU i_sJ-C IcLj 3 ! JujJ J 1 S 3 


: Check Sum 1.3.1.5 

/uj /xjJLuuJI (JSLuuu TCP HeaderJI 1 jjo I AJL-sJ pa^lkjjJ$ 16 Bits <^^3 
Check Jl gyUJI 3^33 pj (la-v^J 16 Bits JS) TCP HeaderJI p+s 4915 gjtx> 
AijliLo pj 4_j HLENJI AojJ) ChecksumJI i jjo j5Lu p^su JjlojLjuuuoJI v_ 9 ^JqJI Sum 

:v_sJUI J^LuuJI i_s\3 jl-oI 3 3a L0J3 ChecksumJI vs-J-^o gjo guUI 


4 5 

0 

28 

1 

0 0 

4 

17 

0 _ i 


10 . 12 . 14.5 


12 . 6 . 7.9 



4, 5. and 0 

► 

01000101 

00000000 

28 

► 

00000000 

00011100 

1 

► 

00000000 

00000001 

0 and 0 

► 

00000000 

00000000 

4 and 17 

► 

00000100 

00010001 

0 

► 

00000000 

00000000 

10.12 

► 

00001010 

00001100 

14.5 

► 

00001110 

00000101 

12.6 

► 

00001100 

00000110 

7.9 

► 

00000111 

00001001 

Sum 

► 

01110100 

01001110 

Checksu m 

► 

10001011 

10110001 


: Urgent Pointer 1.3.1.6 

L^d^c pjj ol BufferJI v_svS />jj TCPJI aJLujjjoJI DataJI ol i_93_>s^JI jjjo 

^3j> 3 i_sJI 4 j>b*i; 0-03 BufferJI ojujjsJI Ao^LqJI DataJI &93JO ju-oo pjj <0 

JSL2JI la>\J Urgent PointerJI La 3^3 BufferJI un 9 DataJI &93JO ,_sJLc >^3^ Pointer 
: JjLfljLjuuuoJI (j^LJI BufferJI l _s 01 4o:>l9 Data s-^33 sSjJl3 .^JUI 


Sliding window 
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Dot Net Streaming & Threading Overview: 1.3.2 


v_s \3 oLaJaJI gjo JjoIszJI AxfijS Ljj 3 TCP/IP 3 OSI el_pd ^jJLc lajLuj 
Binary JLujjJ Stream Library Jl gjo JjoUlJI q+a+S vj3_^ c>>JI lj^> ^3 < oISL^lJI 

... qSJ-jujJ I oL>io_>j v_so Thread Jl />lAitjLjujl i_sJI qsLoJU Data 

< l*J\l> o jo oULJI Jaj /uj v^soJI 6b\JI I3J oJ-c LajLuj SocketJI L^c Socket Jl : J3I 
Jl l_x_di sS3^%j 4> System.Net.Sockets oj>sl> qJjJI ^9 />>L I^Ij^ouj^ 
.tiSLi-juijJI oloiiojj v_s^5 L^joIjc«j_jujI />ju v_svjJI3 Classes Jl qjo j+S ^jlc ,_jJLc Namespaces 

o-o JolstJI UuL^ Lu Binary Data 3! Text Jjjj o-® Stream ClassesJI qSLoj 
ch+j-uj c><JI IJ& 0^3 Stream Writer JI3 Stream Reader />Ijc*oujU Text JjlJ SocketJI 
3I Image 035J ol (jJu&j3 oULJI jjjo _>>! gjp 0I) Object JjlJ q^o JjoIszJI q_i£j^ 
l Jjjj v_s^9 JLJI 3^ Lo^3 i(.. Binary Data ^jJI Js^*y ol qJLoj cv_s^_>jj i_sl 3! Voice 03^ 
q^jo Jjolsdl s>j ^3 Object Lot Binary ^_sJI /J ASCII Code ,jJI Text J3JSU LS Text Jl 
< Object ssl gjo Jols-JI o* JLSuoj vjoJ^ Binary Writer Jl 3 Binary ReaderJI />Ijo«ojujU 
File Stream JI3 Text Jl §jo JolaJ Stream Writer JI3 Stream ReaderJI />jo*lOu 03 Lo 5 
Buffer S Memory Stream Jl ^1 qsLoJL 1 oLJLJI gjO JjoIszJI Jj^juoJ 

Ac9jojsio ,_sJ| StreamJI LaJ />ssu9 < l^JLajOuul asj 3I IgJLujjl JjS o UUJIka^J 

oLiSLo sSjJl3 gJUl JSLlJI Jd>\J 6jjo Stream ^j BitsJI3 BitsJI qjo 

:guj 03JJI vjn 9 StreamJI 



t f 


Buffered Stream 




StringReader • 

; StringWriter j 



Memory Stream 




StreamReader 

StreamWriter 

FileStream 




i_sJj j 1 jjo Image 1 _J_qj qJUxsij />$£-> qjoU_>j clou />$su <Js$-uj ljui> ,_5 \J_c- v_sOL«jJaj JUU&S3 
: vjJUl JJoJI ^3 Lo 5 jua> £3>ojuo cLiuU p 3 CJJU3 Client/Server j>l 
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:AJUI Namespaces Jl qsLob ps ojIaJI 


C#: 

using System.Net.Sockets; 
using System.10; 


VB.NET: 

Imports System.Net.Sockets 
Imports System .10 

v_s^Jl3 MemoryStream u^AlSDI o-o Instance JLa^l o-o ju \) JLuujJI =1 >>VU 

<* 3 $sis£lo i_sJI v_s^J 0J3 jo J^Luju 6>SIjJI Jj>li 6 j 5^JI IgjoJctijuuu 

:ServerJI Socket Jl ^ NetworkStream />Ijl:*^uuL L^JLujjI/J Binary 

C#: 

try 

{ 

openFileDialogl.ShowDialog (); 

string mypic_path =openFileDialogl.FileName ; 

pictureBoxl.Image = Image. FromFile(mypic_path); 

MemoryStream ms = new MemoryStream(); 
pictureBoxl.Image.Save(ms,pictureBoxl.Image. RawFormat); 
byte[] arrlmage = ms.GetBuffer(); 
ms.CloseO; 

TcpCIient myclient = new TcpCIient (txt_host.Text, 5020 );//Connecting with server 

VB.NET: 

openFileDialogl.ShowDialog 

Dim mypic_path As String = openFileDialogl.FileName 
pictureBoxl. Image = Image. FromFile(mypic_path) 

Dim ms As MemoryStream = New MemoryStream 
pictureBoxl.Image.Save(ms, pictureBoxl.Image.RawFormat) 

Dim arrlmage As Byte() = ms.GetBuffer 
ms.Close 

Dim myclient As TcpCIient = New TcpClient(txt_host.Text, 5020 ) 

C#: 

NetworkStream myns = myclient.GetStream (); 

BinaryWriter mysw = new BinaryWriter (myns); 
mysw.Write(arrImage);//send the stream to above address 
mysw.Close (); 
myns.Close (); 
myclient.Close (); 

} 

catch (Exception ex){MessageBox.Show(ex.Message );} 
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VB.NET: 


Try 

Dim myns As NetworkStream = myclient.GetStream 
Dim mysw As BinaryWriter = New BinaryWriter(myns) 
mysw.Write(arrlmage) 
mysw.Close 
myns.Close 
myclient. Close 
Catch ex As Exception 
Msgbox(ex. Message) 

End Try 

Stream Jl JLijj_ujl3 Port Jl ,_sJLc oju^iJI jJI3 ServerJU ^bJI c_pJI 

^Jl Object jjJI qJL3^3 Binary Reader Jl />Ijc*^ujL L^jcl j3 3 Socket Jl j+c 

AJbJI 6 -\£> 6j3^o JLlQJLjujI Jujj JLuoJI l-Loi v_svS < i_S_>j>I 6 jjo (JLujjJI Lp_*JLc. ul^ 

Method L^jlOwuo i >o3 6^3 ^t3joJI Controls Jl i_s3 6jujc> 03JJI LjjJ 0^3 

6j 3^JI A^Kol UJ-c s^-% Picture Box Jl v_> A^bJI Image.FromStream 
Picture Jl ^^Lc ^1 Stream 0-0 LpJL^ Stream J\L> o* AJL^oJI 

ivjJLJI JlixJI vjvs 1 x^3 box 


C#: 

using System.Net.Sockets ; 
using System. 10 ; 

11 Objects Declaration 

TcpListener mytcpl; // Declare TCP Listener 

Socket mysocket; // Declare an object from Socket Class 

NetworkStream myns; // 

StreamReader mysr; 

void Image_Receiver() 

{ 

mytcpl = new TcpListener ( 5000 );// Open The Port 
mytcpl.Start ();// Start Listening on That Port 
mysocket = mytcpl.AcceptSocket (); 
myns = new NetworkStream (mysocket); 

pictureBoxl.Image = Image.FromStream(myns); // Show The Image that Resaved 
as Binary Stream 

mytcpl.Stop();// Close TCP Session 

if (mysocket.Connected ==true)//if Connected Start Again 

{ 

while (true) 

{ 

Image_Receiver();// Back to First Method 

} 

} 

} 
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VB.NET: 


Private mytcpl As TcpListener 
Private mysocket As Socket 

Private pictureBoxl As System.Windows.Forms.PictureBox 
Private mainMenul As System.Windows.Forms.MainMenu 
Private menulteml As System.Windows.Forms.Menultem 
Private saveFileDialogl As System.Windows.Forms.SaveFileDialog 
Private myns As NetworkStream 

Sub Image_Receiver() 

mytcpl = New Tcpl_istener( 5000 ) 
mytepl.StartO 

mysocket = mytcpl. AcceptSocket 
myns = New NetworkStream(mysocket) 
pictureBoxl.Image = Image. FromStream(myns) 
mytcpl. Stop() 

If mysocket.Connected = True Then 
While True 

Image_Receiver() 

End While 
End If 
End Sub 

! v_sJl_JI (JSLuuJI v_s\3 laS JuJl> £_3j_»jjuo cLjjub />$ su-uj 


Forml.cs [Design] | 


H Image Receiver/ Server Form 






3! gijob^JL. ^hJI Constructer Jl ^3 LoJ Image_Receiver() MethodJI &&& 

JU ^bJI Closing Jl aJUI ^3jl<joJI 3 < Form JU ^UsJI JjAajjlJI I jj cjJlxj 

igijoU^JI cl^jJ julc SocketJI J\lcl -vSUJ Form 
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C#i 

private void Forml_Closing (object sender, 

System.ComponentModel.CancelEventArgs e) 

{ 

try 

{ 

mytepl.Stop (); 

Application.Exit(); 

} 

catch (Exception ex) {MessageBox .Show (ex.Message );} 

> 


VB.NET: 

Private Sub Forml_Closing(ByVal sender As Object, ByVal e As 
System.ComponentModel.CancelEventArgs) 

Try 

mytepl.StopO 
Application. ExitThread() 

Application. ExitQ 
Catch ex As Exception 
Msgbox(ex. Message) 

End Try 
End Sub 

!cdjjjjLjuuuoJI 6 j^x Jl ,jjo ,j5u0uu v_s^ 5J Save Button Jl V _5JJ i_sJLJI i^SJI A9L0U 

C#: 

try 

{ 

saveFileDialog 1 .Filter = "JPEG Image (*.jpg)|*.jpg"; 
if(saveFileDialogl.ShowDialog() == DialogResult.OK) 

{ 

string mypic_path = saveFileDialogl.FileName; 
pictureBoxl.Image.Save(mypic_path); 

} 

} 

catch (Exception) 

{ 

} 

VB.NET: 

Try 

saveFileDialogl.Filter = "JPEG Image (*.jpg)|*.jpg" 

If saveFileDialogl.ShowDialog = DialogResult.OK Then 
Dim mypic_path As String = saveFileDialogl.FileName 
pictureBoxl. Image. Save(mypic_path) 

End If 

Catch generatedExceptionVariableO As Exception 
End Try 
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: Threading Overviewl.3.3 

Loop Jl ol v_jl^juuJI 3 gjoLjjJI i_sJI £>10003 i_sjJl3 Infinity Loop Jl 3S03J i_93_juj 
J l cl^jjl J \S 2 j \)l Cv_ 5 ^uij sSl Isl u qJ il Form JU JI3 Global Area Jl Aak^uo 

olpj JoJI guj 03JI LJ cjuojJ < Infinity Loop <ul il IjJ Lo 3^3 Loop 

i_sJLc Ajjl3jjoJI coJla^JL juxjuuu v_soJI 3 Threading Jl L^-sJs-iJL /JjogljujL v_s^ 3 AJ^JuuuoJI 
,JSJ AJLzjiuuo Session Jjo^c- 3 gJlaxdl tjJLc />L^joJI p^uJu J\L> { jj^ .JJ03 gJlaoJI 
j 5 Juuu />UqjJI ,_sJLc qjoLjJI \J Lj3i3 ..Multitasking JL i_su>_juuu Lo 3^3 gpoL^j 
j\ou\ Form JL ^bJI Thread Jl o-c J^iuo Thread v_sJ Jo^uu Loop Jl ol Lo 5 j+£ 

: ^JUI Jl^kJI 


Process 

Global Data 

Global Data 


Thread 


Thread 

Instruction 




Instruction 

Instruction 




Instruction 


3j3> IJlq> 3 Global Area Jl AaJcuo Jo^y Loop Jl ol 5 Thread Jl qsLol J_b <ul k>\J 
Jjo^zj Oj ipj Loop JJ ,>oL> Session Jjo^: />j Thread Jl /jIjcggujI as^ aj-OjuJI doJI sjuljuj 

.. glJoLjjJI gjO l-Sjbj-O J^LuJU 

: System.Threading Namespace Jl vjo^ J3I />>JL Thread Jl 


C#: 

using System.Threading; 

VB.NET: 

imports System.Threading 


Delegate Jl ^ l*J Thread Joa: sjji onJI :>3JaoJI I <ouo Instance JLo_ajI /J 

: v_sJL L>5 l#j ^bJI 


C#: 

Thread myth; 

myth= new Thread (new System.Threading .ThreadStart(Image_Receiver)); 
myth.Start (); 
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VB.NET: 

Imports System.Threading 
Dim myth As Thread 

myth = New Thread(New System.Threading.ThreadStart(Image_Receiver)) 
myth. Start 


onJL LcvS Closing Form Jl oa> myth.AportQ A9 LdL />s o\)I 


C#: 

private void Forml_Closing(object sender, 

System.ComponentModel.CancelEventArgs e) 

{ 

try 

{ 

mytepl.Stop (); 
myth.Aport(); 

} 

catch (Exception ex) {MessageBox .Show (ex. Message );} 

} 

VB.NET: 

Private Sub Forml_Closing(ByVal sender As Object, ByVal e As 
System.ComponentModel.CancelEventArgs) 

Try 

mytepl.StopO 
myth.Aport() () 

Catch ex As Exception 
Msgbox(ex. Message) 

End Try 
End Sub 

1^93 OL93JI (jjuLaj 1^93 Thread ^JJO I Jj^juuu 1 jjo JLSuoj il <AszJThread Jl 6 jjjo 
Ijui 1 jjo v_sJUI c><JI v_svS tjjjjLJuu i Multithreading JU 1 _suxjuuu to 3^3 gpobj-JI 

. UDPJI ^Ij^uuU JUAJI Jo J^qJI 
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UDP-User Datagram Protocol- Encapsulation : 1.3.4 

J3S3J3J-JI |joi> JJUOJJ Cjul> UDPJI fil JC^jLjuU U Jl^AJI CjjJI l-Loi v_S ^9 Orf-P 
Unicast .5 JLuujJI^ s^jJI TCPJI Broadcast3 Multicast .5 jLujJI AyLioL 
Data i_S 3 jLjuuuo tjJx /xSJoJI oLJLxsd cuxc:> />ac J3S3J3JJJI IAiSJuuuo < J oss 
/xJLuuJI ,393 v >o oUjo^c _acjj \J laS BufferJI /y^> 3I Flow 

>JI vjJUl J£aJI 3J3 oj9+c. 0- 0 j^o^l 6 -u 3 i j+L&s Delivered on Sequence 

Ij^J />lsdl 


32 Bit 


Source Port 

Destination Port 

Length 

Checksum 

Data 


/>jlc k>\J TCPJI un 9 l^uuLflj Header LengthJI 3 I LengthJI 3 Check SumJI 
Delivered On Sequence Jl 3 I Buffer ManagementJU A^UJI ^Jl qjo lsI ^ 3^-3 
PacketSuJU Fragmentation Jjtxc gJa^uu \J LjI L^> qiiAuuoJ^ < UDPJU ^Odl HeaderJI 

sS\J ^3^>3 \J col IxxS <U3 jo^oo jjX jjoI gu^zJI lg_2jjOG-eJ 6ilcl ul vl*j^> 

J_«jj|jjJI cls 2 j_*_Ld v_sJI_JI JJLuuJI < oULJI J3^3 i jjo Acknowledgment 

: UDPJI /sljdtijujlr 



Jl 3 System.Net Name Space J 3 I />>L guj ogjJI urJ UDP Jl pIjcgguuJ 
jl^sJLI olc^Jl 3 PortJI fiSj ^sujsu jojL oLS TCP Jl ^9 col k>\J System.Net.Socket 
J-r^c & a Io a a a JU^ Lx>5 TCP V_S^9 3 ^) lcx5 c \JUjSij gJoj-judOS UDP Jl V_sv5 Lol JjGOGuUUoJ I 
ojo oJU JU^uJ IPAddress.Broadcast 3 I IPAddress.Any /JjcggujL Broadcast 
Bind Method Jl /jIjl^gujU PortJI />j, _ojg%j />ac LoJ gJoAjuuu 3 IPEndPoint u-uUUI 

... 0 _j l pJujsij /oo Cag> 

Port Jl I_u 3 > AJLuujJI \C_ouI j$j LpJLc ojugoJ^SOZO PortJI v^sJUJI JUjoJI 

: JJUI ,_yJLc L^szjj3J3 

C#: 

IPEndPoint ipep = new IPEndPoint(IPAddress.Any, 5020); 
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VB.NET 

Dim ipep As IPEndPoint = New IPEndPoint(IPAddress.Any, 5020 ) 

!v_sJL Icx5 />Ju*^juuuoJI Socketjl eLjjul qdjCNC p^3 

C#: 

Socket newsock = new Socket(AddressFamily.InterNetwork, SocketType.Dgram, 
ProtocolType.Udp) 

VB.NET 

Dim newsock As Socket = New Socket(AddressFamily.InterNetwork, 
SocketType.Dgram, ProtocolType.Udp) 

... Send IPEndpoint Object jpoj pj 

JoaS Jg-Q-Ljua joJI vjjJaJI vjvs />jj v^-JIs Bind Method Jl 

: Socket JL Port Jl ps# IP Address 


VB.NET: 

newsock. Bind(ipep) 


Jl JojjJ l^joljtitLjujI pJJ 

C#1 

newsock. Bind(ipep); 


AfljLuuJI Port Jl tjJ-c Served I gp ^jo i_jJ! Lg-L aJLuj^JI JL_qj_jujI pj o\JI 

: onJL Lo 5 IPEndPoint Object ^ujsu J3I />>JL JUi Jo^ 


C#: 

IPEndPoint sender = new IPEndPoint(IPAddress.Any, 0 ); 
EndPoint Remote = (EndPoint)(sender); 


VB.NET: 

Dim sender As IPEndPoint = New IPEndPoint(IPAddress.Any, 0 ) 

Dim Remote As EndPoint = CType((sender), EndPoint) 

vuolszj 1^3 PortJI p 3 js Any IPEndPoint Object ^jJI juljuuuoJI oIsjlsJI ol 
. Served I 3 aILuj^JI ^^u^uujJI p^jS I0J3 J^JI u-sJ! ^coJLljuuuoJI aJLjujjJI JUuujj 

C#i 

recv = newsock.ReceiveFrom(data, ref Remote); 

VB.NET: 

recv = newsock. ReceiveFrom(data, Remote) 


:l^juuLQj AJLujjJI 3 AJLujjJI J_ujjjo 0I3JLC AcUaJ 

C#1 

Console.WriteLine("Message received from { 0 }:", Remote.ToStringO); 

Console.WriteLine(Encoding.ASCII.GetString(data, 0 , recv)); 

VB.NET: 

Console. WriteLine("Message received from { 0 }:", Remote.ToString) 

Console.WriteLine(Encoding.ASCII.GetString(Data, 0 , recv)) 
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joj cul L^j OjjfSizjJ ServerJI gjo JL-^uu p^su ajJl> l J5U c \juuj>p AJLuj j JLujjL LjS> p^u 

icCoLtXuOjl i_yJLc cUi3l5joJI 

C#i 

string welcome = "Welcome Customer..."; 
data = Encoding.ASCII.GetBytes(welcome); 
newsock.SendTo(data, data.Length, SocketFlags.None, Remote); 

VB.NET: 

Dim welcome As String = "Welcome Customer..." 

Data = Encoding.ASCII.GetBytes(welcome) 
newsock.SendTo(Data, Data.Length, SocketFlags.None, Remote) 

jL^> lsI JjJ jjjo 0 J 3 sst v ^9 aJLujj sst JLjl^jujI ajlc : Infinity Loop Jl v_ 9 _v^JI 
iAc oijl lil ... ciSL-juuJI 3 ^ i jjo l _yJI I^jojJLuuu 3 L^joYLljujL Server JI p$su 
p3j lsI ^1 infinity loop Jl v^s True Jl Aoi^uuuoJI JjLuj^JI qjo 

..OJujJ 


C#: 

while(true) 

{ 

data = new byte[1024]; 

recv = newsock.ReceiveFrom(data, ref Remote); 


Console.WriteLine(Encoding.ASCII.GetString(data, 0, recv)); 
newsock.SendTo(data, recv, SocketFlags.None, Remote); 

} 

server. Close(); 

VB.NET: 

While True 

Data = New Byte(1024) {} 

recv = newsock.ReceiveFrom(Data, Remote) 

Console.WriteLine(Encoding.ASCII.GetString(Data, 0, recv)) 
newsock.SendTo(Data, recv, SocketFlags.None, Remote) 

End While 
server. CloseQ 


,_jJI J3-03JI pjj oJ 3 Infinity Loop 0-0 e3>xJI pi lil 4JL> Socket Jl vj\Lcl pp 
cul lsI 1393 Infinity Loop Jl o- 0 -^ 5 Break §^>3 j cusJoUlo pj lil \)l AlaiijJI ojui 

Jl v_9\tcj pp-JuJ^ LOOP Jl [pO C ~Q I pp^juJ QjuSZJS AJLjuJ^j 3I AJLjuJ^ JLi£J_jujI 4 JL> ^s 3 

JjAjuuu ALcor s ^>3 dLSu&j Lcx5 j iSLi ,js: Server Jl v_9\lcl ^.aIo'a, aaJL ) dbl v_SVjlS2j 11^3 Socket 

. IaSLo >3 ^3j3 AJL> v_sv 9 Server JI ,_sOLc- iSaplj ^JLo ls! 

< UDPJI j->s. JLuujJI AjJLaiJ JjoLSJI JLuoJI 1.93^3 
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: ServerJU ,^>bJI c >^JI \Jgl 


C#: 

using System; 
using System.Net; 
using System.Net.Sockets; 
using System.Text; 

class SimplelldpSrvr 

{ 

public static void MainQ 

{ 

int recv; 

byte[] data = new byte[ 1024 ]; 

IPEndPoint ipep = new IPEndPoint(IPAddress.Any, 5020 ); 

Socket newsock = new Socket(AddressFamily.InterNetwork, 
SocketType.Dgram, ProtocolType.Udp); 
newsock.Bind(ipep); 

Console. WriteLine("Waiting for a client..."); 

IPEndPoint sender = new IPEndPoint(IPAddress.Any, 0 ); 

EndPoint Remote = (EndPoint)(sender); 
recv = newsock. ReceiveFrom(data, ref Remote); 

Console. WriteLine("Message received from { 0 }:", Remote.ToStringO); 
Console.WriteLine(Encoding.ASCII.GetString(data, 0 , recv)); 
string welcome = " Welcome Customer ..."; 
data = Encoding.ASCII.GetBytes(welcome); 
newsock.SendTo(data, data.Length, SocketFlags.None, Remote); 

while (true) 

{ 

data = new byte[ 1024 ]; 

recv = newsock. ReceiveFrom(data, ref Remote); 

Console.WriteLine(Encoding.ASCII.GetString(data, 0 , recv)); 
newsock.SendTo(data, recv, SocketFlags.None, Remote); 

} 

} 

} 
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VB.NET: 

Imports System 
Imports System.Net 
Imports System.Net.Sockets 
Imports System.Text 

Class SimplelldpSrvr 

Public Shared Sub Main() 

Dim recv As Integer 
Dim data(1024) As Byte 

Dim ipep As IPEndPoint = New IPEndPoint(IPAddress.Any, 5020) 
Dim newsock As Socket = New Socket(AddressFamily.InterNetwork, 
SocketType.Dgram, ProtocolType.Udp) 

newsock. Bind(ipep) 

Console. WriteLine("Waiting for a client...") 

Dim sender As IPEndPoint = New IPEndPoint(IPAddress.Any, 0) 

Dim Remote As EndPoint = CType((sender), EndPoint) 
recv = newsock. ReceiveFrom(data, Remote) 

Console. WriteLine("Message received from {0}:", Remote.ToString) 
Console. WriteLine(Encoding. ASCII.GetString(data, 0, recv)) 

Dim welcome As String = " Welcome Customer..." 
data = Encoding. ASCII. GetBytes(welcome) 
newsock.SendTo(data, data.Length, SocketFlags.None, Remote) 
While True 

data = New Byte(1024) {} 

recv = newsock. ReceiveFrom(data, Remote) 

Console.WriteLine(Encoding.ASCII.GetString(data, 0, recv)) 
newsock.SendTofdata, recv, SocketFlags.None, Remote) 

End While 
End Sub 
End Class 


Server J I gjo AjuuJL> cLojuL Client Jl />Ls ,_sJLc Jj&sJI < Client JL .^bJI c j-aJI Lob 
^9 vj\L>\)l ol \)l ^LuJI ^9 pi 1 x ^3 PortJI /> 5 j 3 IPEndPoint JL asu 

lsI JL^is Server JI aJLajj^JI J juu I t lo 6,9 l3j ^ ^ * I 03 JI 

: l^a^sjoJI PortJI 

C#: 

using System; 
using System.Net; 
using System.Net.Sockets; 
using System.Text; 

class SimpleUdpCIient 

{ 
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public static void Main() 

{ 

byte[] data = new byte[1024]; string input, stringData; 

IPEndPoint ipep = new IPEndPoint( IPAddress.Parse("127. 0.0.1"), 5020); 

Socket server = new Socket(AddressFamily.InterNetwork,SocketType.Dgram, 
ProtocolType.il dp); 


: AJUI aJLuj^JI bu ServerJI §jo JL^j\)I ulAiL9 4Jb> ^ 

string welcome = "Hello, are you there?"; 
data = Encoding.ASCII.GetBytes(welcome); 
server.SendTo(data, data.Length, SocketFlags.None, ipep); 

IPEndPoint sender = new IPEndPoint(IPAddress.Any, 0); 

EndPoint Remote = (EndPoint)sender; 
data = new byte[1024]; 

int recv = server.ReceiveFrom(data, ref Remote); 

Console. WriteLine("Message received from {0}:", Remote.ToStringO); 

Console.WriteLine(Encoding.ASCII.GetString(data, 0, recv)); 

while(true) 

{ 

input = Console. ReadLineQ; 

Exit i_«5l AjuuJbJI clfjl Oiji lil AJb>- Sr s\3 
if (input == "exit") 
break; 

server.SendTo(Encoding.ASCII.GetBytes(input), Remote); 
data = new byte[1024]; 
recv = server. ReceiveFrom(data, ref Remote); 
stringData = Encoding.ASCII.GetString(data, 0, recv); 

Console. WriteLine(stringData); 

} 

Console. WriteLine("Stopping client"); 
server.Close(); 

} 

} 

VB.NET: 

Imports System 
Imports System.Net 
Imports System.Net.Sockets 
Imports System.Text 

Class SimplelldpCIient 

Public Shared Sub Main() 

Dim data(1024) As Byte 
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Dim input As String 
Dim stringData As String 

Dim ipep As IPEndPoint = New IPEndPoint(IPAddress.Parse("127. 0.0.1"), 5020) 
Dim server As Socket = New Socket(AddressFamily.InterNetwork, 
SocketType.Dgram, ProtocolType.Udp) 

Dim welcome As String = "Hello, are you there?" 
data = Encoding. ASCII. GetBytes(welcome) 
server.SendTo(data, data.Length, SocketFlags.None, ipep) 

Dim sender As IPEndPoint = New IPEndPoint(IPAddress.Any, 0) 

Dim Remote As EndPoint = CType(sender, EndPoint) 
data = New Byte(1024) {} 

Dim recv As Integer = server.ReceiveFrom(data, Remote) 

Console. WriteLine("Message received from {0}:", Remote.ToString) 
Console. WriteLine(Encoding. ASCII.GetString(data, 0, recv)) 

While True 

input = Console.ReadLine 
If input = "exit" Then 
' break 
End If 

server.SendTo(Encoding.ASCII.GetBytes(input), Remote) 
data = New Byte(1024) {} 
recv = server. ReceiveFrom(data, Remote) 
stringData = Encoding.ASCII.GetString(data, 0, recv) 

Console. WriteLine(stringData) 

End While 

Console. WriteLine("Stopping client") 
server.Close() 

End Sub 
End Class 


v *3 UDPJI5 TCPJI fi 5 TCP/IPJI fi\xs<dmuj\j JLaJUl J^I>o Luu \*S & 9 

... CJyJ O3JJI 

Qjj\jzjt£> 9 Network Layer Encapsulation i>c <_*JUI JUxeJI l*3 jxvujj 

... IPV6JI3 IPv 4 JI J^3jj 
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jJjO^jJI CliJ I _/XjuUU 

/xju3 JP oj^VI PacketJI <63^ AJLxc pjj Network LayerJI ^9 

pj bl9 Transport LayerJI /ja^ajuuuoJI ^^JLc IcL> AJ^oJI 

UDP Jl ol5 4_IL> v_svS Lol Unicast />a>sljuuuoJI 0I3J13JI o<£j ot \)l gJaAjuuu \) Io>julc TCPJI 
Broadcast 3I Multicast 3 I Unicast 0I3JLC g^>3 gJa^juuu L3 >JulC />Ai*AjuuuoJI J3S3P3JJJI 3ji 
IPv4 oj_>ij\JI j t_yJLc J-^iflJI ljLd> ^JJO v_sJUI cjjscJI v_s^9 v_sOb v_93_uj3 

\<^s BroadcastJl3 MulticastJI3 UnicastJI &^>9 ^^>9 

IPv 4 Architecture : 2.1 

! IPv4 cjuj_o\)I />LJI v_ajSjjJI v_sJUI iJSLLjJI 


IP protocol version 
number 
Header length 
(bytes) 
"type" of data- 

max number, 
remaining hops 
(decremented at 
each router) 

upper layer protocol 
to deliver payload to 


how much overhead 

with TCP? 

• 20 bytes of TCP 

• 20 bytes of IP 

• = 40 bytes + app 
layer overhead 


32 bits 



32 bit source IP address 


32 bit destination IP address 


Options (if any) 


data 

(variable length, 
typically a TCP 
or UDP segment) 


total datagram 
length (bytes) 


for 

-fragmentation/ 

reassembly 


E.g. timestamp, 
record route 
taken, specify 
list of routers 
to visit. 


OptionsJI IcLu 60 Bytes ^sJI 20 o^> IPv 4 JL ^Udl HeaderJI />*> £3! 

20 3-fi>3 oub HeaderJI L2 >julc OptionsJI /JjcsajujI pjj /J liD Jl^jLaojuoJ I 

:v_sJL LoS TCPJI j-tc qJLuujjJI DataJI p^> LaSLoj AJLJI ojui v_s^3 Bytes 

Data = total Length - (20 Bytes for IPv 4 Header-i- 20 Bytes For TCP Header) 

: Sr ?JD loJ IPv 4 HeaderJL A^>hJI 20 BytesJI 

. BinaryJI ^9 0100 qJLuoJ ^3 IPv 4 La 3^3 />jd^uuuJI VersionJI l ^9 4 Bits 

4 i_ssj_c. HeaderJI px> ^9 Header LengthJU 4 Bits 

J3S3J3JJJ 4 j^JLLuJI 4 jojcJI o^3^r ^Juo L^s Jiaj cap* Type of ServicesJU 8 Bits 
Maximum ServicesJI 3I Minimum Delay 1^03 < Application LayerJI ^9 Jl^LjljuULoJ I 

... la _>jX-3 

FragmentsJI V_JL jJjJ 6iLcl3 FragmentationJI oULxsJ /)Jc«jLjuuu3 32 Bits 
RoutersJI 3I HopsJI :>ac j^.9 TTL - Time to Live Jl jua^aJ 8 Bits 

16 hops IgJ v_sv-bl>*3JI ^AsJ^ < ol tjJI L^J\L> jjjo j3>oJI PacketJJ jux juuu v_scJI 

.IgAo^S 1 jjo 1 >°-P ROUter JJJ la_;3jjo ACC3 

... UDP 3I TCP cl3^u Upper LayerJI ^9 Jl^LjljuULO^ Jl J3S3J3 ^jJI p q j ju asaJ 8 Bits 
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3 1 TCPJI v_sv9 AoJc*j^uuuoJI AfljjJaJI QjLuo> OfljjJo <JlJLvi«ii J 3 Checksum JU 16 Bits 

.J 3 JI v_s^9 Lfl>L>j_uj UDPJI 

J-juujjoJI j L^jsJI 0 I 3 JCC jujc^J 32 Bits 
JjLiLLjuuuoJI 0 I 3 JLC ju-vjslJ 32 Bits 

BroadcastJ^ UnicastJI AJ 3 J a&jjJo J-^ujJI Iju 3 > i jjo v_sJUI cj^JI ^s9 v jj-j 
: CIDR - Classless InterDomain Routing JI 3 Classful Jl />Ijc*^uuU UnicastJ^ 

Classful IP Address : 2.1.1 

jjfSLl njjlj^> v_sJI 0 I 3 J 12 JI 1^j9 Ijl> oJqj^uuu ClaSSfulJI /tljCfcji-juuU CU 3 jlsJI AxLxC. jjulSJ 

v_svS £u^> 3 jo 3^1 LaS 3 Host IDJI v_soLiJI cjj*JI 3 Network ID Jl 0 I 3 JLC i _ i ^c J 3 JI c><JI 

:^JUI JSLjJI 



8 bits 

8 bits 

8 bits 

8 bits 

Class A: 

Network 

Host 

Host 

Host 

Class B: 





Network 

Network 

Host 

Host 

Class C: 





Network 

Network 

Network 

Host 

Class D: 

Multicast start 224.0.0.1 


Broadcast: 

Network 

255 

11111111 

255 

11111111 

255 

11111111 


0 jJl^> BinaryJI ^9 J3JI BitJI Acui 03SJ3 126 ^1 1 0-0 Class A Jl Luj 
1 J0I3 BinaryJI ^9 J3JI BitJI Axxc9 03^3 191 128 Class B Ijuu3 

1 _vj>I3 _vj>I 3 BinaryJI ^9 vjoliJ^ J3JI BitJI Acui 03^3 223 ^jjj 192 0-0 Class C Luj3 

... 1 

J I yO JOLi-JUJjg 111 cuuo tjJsJl Bits Aj\UI 035^3 224 qjo IjuijJ) Class D Lot 

... Multicast Group 
!OIoj-juUloJI 0_Ld) £u£> 3 J v_sJUI J^lxi\ 3 


From 


Class A 


Class B 


Class C 


Class D 


o.o.o.o 


Netid Hostid 
10000000 0 ... 


128.0.0.0 


Netid Hostid 
11000000 0 . 0 


192.0.0.0 


Netid Hostid 


224.0.0.0 


Multicast Address 


Class E 


240.0.0.0 


Reserved 


To 

127.255.255.255 

Netid Hostid 

10111111 1 .1 _ 

191.255.255.255 

Netid Hostid 

11011111 1 . 1 _ 

223.255.255.255 

Netid Hostid 

239.255.255.2~55 

Multicast Address 


255.255.255.255 

Reserved 
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A^obsJI BitsJI cUjlSzj />Jj AiULuJI olxx^juuLiiiJI 1 jjo lSI { jjo Broadcast Jl ul5j^: gljjs^-juu^ 
jua^j 1 10.0.0.1 oIsj^JU Broadcast Address Jl ^Sjs^ Jlio^ a>I^j Host IDJU 

(jedL^JI c><JI o\J Class A ,_jJI v_suxi*j a! guo^l o -°9 < ciljjjLsdl l-Li> v_svjojJu Class <_sl ^jJI 
0.0.1 3a Host IDJU ^bJI cjjsJI IJ < 126JI3 1 o+> 3^3 10_j Luj Network ID JL 
£u^3 Host IDJU ^bJI c>pJI 255 Ao^9 Broadcast Address ^1 ^3^03 
Classful Jl Class A JU Broadcast Address Jl 3^3 10.255.255.255 iv^JL lo5 ol3*sdl 

... Nation 

,_jvjoJdsJI tUxjjJI \Lucx5 A>_p i_sJI ^>3-)L5to Ait ClaSSful NationJI 1^9 AlSLuuuoJI 
AyLSuol JspJ SubnetsJI guo AutSLoL J^JI 0LS3 < 2 32-8 Host 3^ Class A JU ^LsJI ;>asJ 

ClasslessJL 1 _ S sjoouuu Lo 3^3 Host PartJJ _^\ JJ3J 

CIDR - Classless InterDomain Routing IP Address : 2.1.2 

^jJI L^jcwd 3 Network PartJL AedLaJI BitsJI qjo Ac 3 oj%jo ^bti^jujU AJLxsJI />jj 3 
192.168.1.0/24 0I3JLSJI i jjo -xja> 0I3JLC 1024 AJ3 J JLlo 53 Host PartJI 
LoJ SubnetJI I&ajlc Network IDJU A^bJI 24 BitsJI 0-0 2 Bits jbti^uuL />$£) 
c^loS 3 2 10 Addresses ls! 32-22 = 10 Bits , Host ID JU 5^3 192.168.1.0/22 : ^JL 

■ v-sJLJI J^JjjJI ^s3 Q*o\ 3 

network host 



11000000 10101000 00000000 00000000 


22 Bits Jl /xj^uuLflju />3ijj 192.168.1.0/22 ajJl^JI 0I3J12JL ^pliJI Broadcast Jl 

!v_sJL I&S 3 8 Bits jj>L cj_> up’ ol3JtsJI i_sJ-c 


8 8 6 

192 168 1 0 

11111111 11111111 11111100 00000000 

ul v_sOlszj I joi>3 252 JbuoJI v_s\5 u 3 SL«-juj 3 lSj_*julc i_sJI oJLUI c>>JI v_s^ 9 one's Jl J3J5tj />j 
192.168.255.254_; 192.168.252.0 _< Addresses RangeJI 

... 192.168.255.255 : 3^ Broadcast IP Jl 03!^ N 

cJljlo CIDRJI />Ijc«j_jujL v_sJ>> JJJuju oJL> a9 ^ 31^2 !! Aj^ 3 _\j>uoJI AiSLuuuo ol 
ilj v^> IPv6JI ^9 J^JI ul^3 I ^jjo i _>j\LoJ ^31^0 AJ3J Lijl li>l 6^3Jj%jo o Ul5uoVI 
o-o ^Ul c>>JI c uc <-_ua^JI />- 4_co SSAJI3 128 Bits ^sJJ 32 Bits ^31^1 jocx> AjJ 

.J_^iflJI ljoi> 
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IPv6 Architecture : 2.2 


IPv4JI q^lsJ oul5 sjoJI JJLiuoJI v jjo IPv6JI J> IPv4JU ^sJUl J^JI 3^3 IPv6JI 

iJoLajJI qjo AC3oc%j0j L^b*Jj3 

6^Lj gjo 6^>3 Jl^io IPv4 AddressJU ,_sxoJdsdl cuxjjdl ol 3 jul> _>iSI ^31^ 4j>bJI - 

./Jlsdl IP'sJI jj^LlC i_yJLc x_J_Ldl 
v_s^9 l^JL> /xj a 9 I3 Routing ^3 cl^>L> 3 JJLiuoJI v jjo Ac3ojsjo ,_sJI IPv4JI js - 

IPv6JI 

,jji^Jl3 oULcxc (>o ls\ /xcju /J o^> IPv 4JI ^ SecurityJI qlSL^iuo - 

IPv4JI vjx9 aJLSLjujuoJI £)jus> oJL> A93 Network LayerJI ^3^0 l _ s JLc Authentication 
SocketJI lS3^uuuo PortJ^ IPJI />jj o^> IPSecJI />ljd*^uuL 

. Network LayerJI lS3^uuuo !_?!£ A^ojuo SecurityJI aju2> JspJ A^JLo 4j>bJI 
i_sJI 6a>I3 aJLujj JLujjI />jj il any castJI ^jJI 0^3-Lu /o BroadcastJI tjuuo jj^u - 
1 JLujjJI RouterJI v.sOlszaJI jl^jsJI jc>3 4JL> <^s 3 $ ASL-juuJI ^jJLc J5 
qS: cIaj^JI JulC />Jcs^jujuoJI BandwidthJI qjo AajjJo AajjJoJI v_sx9 XJA3JI3 

.c^SLjuuJI t.yJLc Lo jlgj> 


LaS Ia> jjuS fiSj 3^3 2 128 AddressesJ^Lszj Lo /xc:> J5 LuuuoJI cjl^> IPv6JI Jj> 
oLJLxc /xci loJ Routing c uj>3jJI oLLxc qjo £.>juu Lx© Routing TableJI /x^jsJI qjo Jl9 
Type of Jl pj pS> Network LayerJI AuthenticationJI 

AzsbJI HeaderJI vjJUl JSL*lJI .oU^^JI xsl PriorityJI l^JL*© J>3 Services 

: IPv6JL 


VER 


PR I 


Row label 


Payload length 


Next header 


Hop limit 


Source address 


Destination address 


Payload 

extension headers 
+ 

Data packet from the upper layer 


03SJ3 ol^iall J_4oJ IPv4JI ^s3 DecimalJI ^ \J_v hexadecimal Jl IPv6JI />jc*i^uuu 

:JLio5 <_sJL L>5 td AolsJI cu^ioJI 

69dc: 8864: ffff: ffff: 0:1280: 8c0a: ffff 

.16 Bits LS-23J AljJuo l _|5 v_sx 9 1 IPv 4 JLr 4 i jjo \Jju JjLuo 4 _jLoJ 1 jjo Oc£jj oj\ Jco\) 
:oJUI JSLjlJI vjx9 L0J3 aJ>o JU 4 Digits HexadecimalJI ^9 CLL40J3 
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128 hits = 16 bytes = 32 hex digits 



FDEC 

■ 

■ 

BA98 

■ 

■ 

7654 

■ 

■ 

3210 

■ 

■ 

ADBF 

■ 

■ 

BBFF 

■ 

■ 

2922 

■ 

■ 

FFFF 


Geographic-based 3 Provider-Based Addresses 0 ,jJI IPv 6 JI 

StandardJI ClientsJI ,_yJLc gtoL^JI ISP'sJI Addresses 

s^s Geographic-based Addresses Jl I 0 I 3 Provider-Based Addresses ^bJI 
loJ >3 ul^Jisdl AjIju v_ss9 035 b (>dL> j-Oj JSJ O 3 SL-JUJ Qjl eSl < AJ 3 J 1 JI 


- Provider-Based Addresses 

a) Registry ID 

b) Provider ID 

c) Subscriber ID 

d) Subscriber Subnet 

e) Host Number 

- Geographic-based Addresses 

a) Registry ID 

b) World Zone 

c) Country, City, etc. 


:^JUI 


128 bits 


8 bits 



Provider 

Subscriber 

Subnet 

Node I 


identifier 

identifier 

identifier 

identifier 1 


010 


Registry 


3 bits 


INTERNIC 

R1PNIC 

APN1C 


11000 
01000 
10100 


USA 

Europe 

Asian and Pacific 


1^3Lc AJ3J «ua*53 IPV6JI3 IPv4JI JUxc Ijuu> J-ajJI I jlo> xS3 Uu JLS3 
. CIDR Nation JI3 Classful Jl .pIj^jujU BroadcastJl3 UnicastJI 
Jl JjaaJ LgjolJLajuujIs IP Multicasting v>e vJnJUI J-clhJI % s 3 CojlsJI 

... Multicast Group 
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Chapter 3 

IP Multicasting Programming 
Overview 


- IP Multicasting Overview 

- Using IP Multicasting in Dot Net to Create a 
Multicast Groups 
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/yjJ>j]\ cUJ| /UuUU 


: IP Multicasting Overview :3.1 


UajJ> 0 -jujl 5 JjOvsJ ^oIjCU-ajJ Qj-QjS UDP Jl J3S9JJJ ^ IfijLuU LuJUU 

^3:>3 cu)>L 1-SJJI3 IPAddress.Any />Ijcu_ajuL lol ^jjJLi^iou o^ujIS ^3>JI Jjox. gJai^uuu 
/yj aJLuj j lsI c U\JL>- v jjo JjJjjljuoj ^jcsloJI PortJI ^jJLc oju^JI aJLxszj p$su. Server 
Jjixc o^jcv qJYL> ^jo LSJJI3 IPAddress.Broadcast/>lju*i_^L 3I J 5 ^1 l&i+j />$sb 

,_sJLc c u 5 uoj JJJI ul Server jl&s> :>3^>3J 6j3>-o J ,_sJI Cjj 

Jl AjJLcx£ cijf-ujJs i_sJI aJLuj j ls! lg_l\L> ^jjo J^uj_>j 3 Jjjjjjuuy 3 ^jlsloJI Port Jl 

lil Lol 1 Jjjl i_sJ! J -uJjr !9 J^JI O- 0 8 ^*-^. I ol o^> v^liJI viJI AJLcxc Broadcast 
v_9Jl^j JUi3 IP Multicasting Jl />ljctA_Ajul u3u Lq>jji£ oLc3jo^o i_sJI JLuj_>JI />^juulqj L^jI 
v_sv 5 I-\j> Axx^joJI gj-iol3xJI i jjo £,3<io3xJI lAoi < Multicast Group Jl Jjo^sJ <^Ijuu_ajjI 

ul il (s^uuUI , LaaJI Jail) AjJLJI v >c J-£U2juo J-o 9 pJ v. lA^J 9 o ISLuiJI olu^OjJ 

JLujjJI ^1 !_sJ^ Multicast vj^j JJLviu qJLc juo^j Conferences Jl olu^o^j uJLcI 
03SL Client/Server />Ijcu_ajuL Managed ol 5 cI3juj i j^jctUuuuoJI 1 jjo Ac3jou«jo i_sJI 
l^JLujjl pj Clients Group Jl ^ JjLuj^JI JUluujI cuaJb3 ASLhJJI Server jl^> JULo> 

! vjJUl (JSLuuJI ^JI _Jcul (_Sj_>l 6 j jo Ac 9 jojsloJI JjoI 5 ^jJI 



Client 3 


Server 


Server JI lils Clients Jl Ac3ojs^oJI l _sUI ^oLo^k3j\JI uJJo JLujJ/xjj °j\ 

J 5 J jjuuaJs qj Az>bJI IP Address List Jl <_sJI jl^=JI 0I3JLC /x-oj />3ijj uJJaJI (_sJc 
Jjj_*juu v_suJI Ac9joc%joJI cLocI gjjour ^^Jl JLujjJI A*J .9 IP Multicast Jl ujuloJu Ac3joo«jo 
. lajLuj 3^3 Class D Jl gjjj i_sjJl3 IP Multicast Jl v_s'^*j 

jl^> J 5 ol o^> peer-to-peer Technique - unmanaged JL ^-^3 v^LJI esJI 
AJLxsd iSjSjjo Server ^3^3 J3 0J3JI u-ulcj ^_s3 client 3 server J Jjo^zj 

UNjldJb J^Ljuju AC3jo^ejoJI i__sJI />Lo^oj\JI uJJo (_sJc c UL 9 I 3 joJI /yJj JLajUjuJI 

Jol 5 ^Ji JLujjJI 3 JLlQJLjujJI />J />Lo^oj\JI v_s ^9 (__3sJI ‘J AC3 jo^ejoJI v_sx 9 jlp~> irS^ 

: v_sJL.ll JJJuuJI Ac3joc%joJI 
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Client 1 


a. 



Client 3 


Client 2 



IP Multicast Address JU ^svjoouuu Lo 3^3 Multicasting JU ^ 3 ^ /XJ 

; v_sJL Lo^ 

LAN AJL^oJI oll^uJ 224.0.0.255 ^Jl 224.0.0.0 0,0 ^juJI 
Internetwork JU 224.0.1.255 ^jjj 224.0.1.0 0-0 ^ajoJI 
AD-HOC Network block JU 224.0.255.255 ^Jl 224.0.2.0 0,0 ^axJI 


Multicasting Group , U>aJ UjoIjlj*XjujI 9 IP Multicasting :3.2 

/>uu Socket Namespace Jl />ljct^uul. IP Multicast JU _u> 0 ^ 03 -dl ouoas 

23 J 3 JI 3 />low^\JI oLLxc ojbL /> 3 su SetSocketOption :> 3 jl<joJI Jl /Jacsj-jujU Igjj 
4 j 3 ^sJI cLsUIs A9LdJ />-v 3 eijuoJ US (leave & join) multicast group Ac 3 joc«JI ^3 o* 
fiSj jua^J UdpCIient Object Jl DropMembership 3 AddMembership 

IP Multicasting Jl <Jujsa ^1 AsUdJU c U^> 0- 0 voOL-JI JLoj^J SSJJI 3 PortJI 
i_Sl gJojLjuuu 1 AJLujjJI v_ 93 juj <_s\jJI olgjaJI AJlsA AM-i* ^JJO i_SJjI 3 

JC^jLajUU c aJLujjJI ojdi) JLijjLjujI IP Multicast Jl ujulcj />jl3*ajuuu3 PortJI Ijlq> ^jJLc ol^ju j 
Jl vjjo^o 3 5020 PortJI /x9j />JjkLLjuJu CJuLsu oL^j> 6JlC i_yJI AJLjujj JLujjJ v_sJUI A 3 SJI 

:JLuo5 224.100.0.1 Group 


C#: 

using System; 
using System.Net; 
using System.Net.Sockets; 
using System.Text; 
class MultiSend 
{ 

public static void Main() 

{ 

Socket server = new Socket(AddressFamily.InterNetwork, 
SocketType.Dgram, ProtocolType.Udp); 

IPEndPoint iep = new IPEndPoint(IPAddress.Parse("224.100.0.1"), 5020); 
byte[] data = Encoding.ASCII.GetBytes("This is a test message"); 
server.SendTo(data, iep); 
server.Close(); 

} 
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VB.NET: 

Imports System 
Imports System.Net 
Imports System.Net.Sockets 
Imports System.Text 

Class MultiSend 

Public Shared Sub Main() 

Dim server As Socket = New Socket(AddressFamily.InterNetwork, 
SocketType.Dgram, ProtocolType.Udp) 

Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Pars("224. 100.0.1"), 5020) 
Dim data As Byte() = Encoding.ASCII.GetBytes("This is a test message") 
server.SendTo(data, iep) 
server. Close() 

End Sub 
End Class 

lsI) AJLujjJI JjJLljuuu v_ 93 _uj v_scJI SocketJI Luos cuIjJI v_s\S 

£_ 3 j juJlxj />j (^jlsjoJI IP Multicast Group Jl ciSJ-juuJI ^jJLc cju&juu 

... />Jdt jljuULO^ Jl iJqSqjjjJ I 3 SocketJI 

UdpCIient Jl o-ujLaj SocketJI />jctjLjuuu v_ 93 juj JLjjj_»jj\)l cLoju \)3 

. < -uJLc _jju^xJI v_s\jJI Port Jl s&j < ^J Jijjuuu 3 Object 


C#: 

using System; 
using System.Net; 
using System.Net.Sockets; 
using System.Text; 

class UdpCIientMultiRecv 

{ 

public static void MainQ 

{ 

UdpCIient sock = new UdpClient(5020); 
sock.JoinMulticastGroup(IPAddress.Parse("224.100.0.1"), 50); 

IPEndPoint iep = new IPEndPoint(IPAddress.Any, 0); 

byte[] data = sock.Receive(ref iep); 

string stringData = Encoding.ASCII.GetString(data, 0, data.Length); 
Console. WriteLine("received: {0}from: {1}", stringData, iep.ToStringQ); 
sock.Close();}} 
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VB.NET: 

Imports System 
Imports System.Net 
Imports System.Net.Sockets 
Imports System.Text 

Class UdpCIientMultiRecv 

Public Shared Sub Main() 

Dim sock As UdpCIient = New UdpClient(5020) 
sock.JoinMulticastGroup(IPAddress.Parse("224. 100.0.1"), 50) 

Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Any, 0) 

Dim data As Byte() = sock.Receive(iep) 

Dim stringData As String = Encoding.ASCII.GetString(data, 0, data.Length) 
Console. WriteLine("received: {0} from: {1}", stringData, iep.ToString) 
sock.Close() 

End Sub 
End Class 


/>ljii*j-jujl IgJLuujj 3 oULJI o v_ 9 jJo -v>3j <^1 

( _jJI Image JLujjI dJLSLcxj lo^ JLjjj_juj\JI 3 JLujjYU gooU^^JI ujuloj v_s\ 3 ^JJ_QJlJuuJI 
lS 3 _uj tiJLlc Lo il Binary ^sJI c kLi^>j qSLoj j. >1 c ssl 3I ( x-ju^LJI , L^a-oJI Jajl ) ^yajJI 
JLuujVI v_sJ! Binary Writer JI3 Binary Reader JI3 memory Stream Jl A9 LdI 

/>|jctijujL; 6 $Jtsiuo olgj> (_sJI IjjjoISJI jjS. 6j9^> JLuj,V dLSuoj LoS JLaj-^u\)l 3 

Advanced Multicast g^UI J^aJI ^9 Lv_sOLuJ v_SVjJ I3 c C<-£>LsJI (jJJLQj 

... Systems 


45 






Part 2 

Streaming in Dot Net 


Chapter4 Streaming in Dot Net 
Chapter5 Applied Streaming in Dot Net 
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Chapter 4 

Streaming in Dot Net 

Managed I/O: Streams, Readers, and Writers 


- Stream Classes 

- Stream Members 

- Stream Manipulation 
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I I cOJl fyjjjj 

i Managed I/O: Streams, Readers, and Writers : 2.1 

l£joljde^ul3 Streams Library Jl ololjctijujl i _ j ^c /)Lc JJLuuu Jg\Jl I v_s\S LojLuj 

Jl 1 jjo 6 j^> JLujjL Luos Jbuo^g l _$JI 0- 0 Text Data 3 Binary Data JLujjJ 
.. Binary Reader & Binary Writer Jl ^oIjcj^ujU Server Jl ^1 Client 
_>>l i_jJI olSuo qjo obbJI Jjjj 3^ Stream Jl oL_iSuo cLuuul ^JJO ijjLpJI ol 

gjO JjoLszJI 3I olaJLoJI gjo Jjolsiju JbsJI g^> LoJ jl^sjl (jjULOj J>l^> 3! ASL-juuJI _y~C- clg_juJ 
i_sJI IgJLgjsJ AJbxc. LJx J^juuu ol(> jj3jjjcx 5JU Jg^>gjo _>>l jL^j> 3I QjSjJo sSl 3I AsdILJI 
v_s ^9 o-otojjjoJI ci^rlgj ojL$ ^oJI JSLiuoJI jjjo j-yiSJI ,Jj> Lo 3^3 IgJLuujlg Byte Array 

.. Binary Data §jo J0I2JI 

ojoIjjjo >asJI 3 Synchronous o^Ia^JI c*jgJLujl StreamJI g_o JjoUlJI oJLoj 
oS\l o^lj-^oJI 10 StreamsJI &uoj> Jjo^j v^wdI^I Jl^g Asynchronous 

v_s\S Processing UnitJI Jj^Lcb />gjjj il />UdjJI AJlJ ,_sJ-c ajJljuuJI o_>jjb g^> cus sj^^JI 
AJLxaJI i jjo clpjuJI a su \)l jjo! ls! juxjuuu \) gjjoUjjJU A^o^ii*joJI ThreadJI 
6t\jS I Jjolaju OuiS lil AJL> 1^9 ^JJoljJJoJI vS-J-jjuJI />Ijl 5 «j_«jjI IjuI £y£xju Jg Ajjbdl 
oL^ojJU Ia> Ao^jo L^SJ Magnetic TapeJI 3 I Floppy DiskJI Jjlo b^uuu qiAxj A<LSg 
vs-LujJI juojlszj Lpjt Real Time SystemsJI 3 ! ^svJLJjjsJI v jjo_JI AoJdJ ,_sJ-c juojlszj v_scJI 
(jj^> i_sJI <-S>>l £ cJLcx£ i_Sb />b_aJI gJuoj Lo 3^3 obbJI JLaj_»jjlg JLujjl c^JLxxC v_s \9 i jjoljjjoJI 
3I unSJ-JI v_sv 9 £,Iaj\)I 3I v_*j>uuuJI cioJdjl L^jJLc cJjjoJI vJj03 jjoJI Ju-fl-iJ o-° c Lp_j\JI 

\J Jbaobjj ul 5 lil AJb> v_s ^9 Ls^jJo .. Ls>_><Xg v_qJL pJI A 9 lku qjsuuj gl _> 5 ljuJI AoJoJ 

Jjjoljjjo ><^JI VsTajjJI /)|jLXijujb LS>JulC AajLuuJI l yol3iJI ^3^-3 (_svj| gbjsy 
03JU3 cusJlaoJI 6 jl>3 i_s\ 3 i_Sjj>l obJbxc jl^bju qjo gJa^juuu v^> Asynchronous 
JL>^I sJio AJLox JU Separate thread cLiul />jj, il qj^bJI AJbxsJI cLpjl jLLloJ A>LsJI 
AjLSJI 3I 6cljjJI PjJLa£ Oul$ li>l PjolAitijujb jL^aJug />UqjJI AJlil ,_jJLc jj$j \) bxo gl>>l 3I 
v_s ^9 Qjoljjjo jjJiil l jjoljjLoJI igjijjoJI jj, joJ q5Loj3 Lj-juju c UjJaj 6j^j>l J\L> 1 jjo i-S> 5 £j 
L^jJLc Jlio^g qjoIjjjo ><^JI igjijjoJI />^jujI AjIju v_sv 9 End 3I Begin AoJ 5 ojJ ogjJI 

.. EndReadJI 3 EndWriteJI 3 BeginRead 3 BeginWrite 

Stream Classes :^)oi 

Name A^jjuuoJIg ClassesJI ^JJ0 Ac-gjo^oj StreamsJI obJLo£ ojJ 03AJI />^cjj 
/>jl5*lljuuu . obb_JI JjijJ gljj>\)l 3 JL>^JI obJbxsJ />jLi«jjuuu i_scJlg System .10 Space 

3 FileStream AJLoJI « Backing storage < Stream ClassesJI 
Back Storage cs\ Jl^LjLjuUU \J 1^02; 0I9 jJJjSg MemoryStreamJIg BufferedStreamJI 
ugjug ASL^jJI jjs: StreamJI JjlJ ^s^JIg NetworkStreamJI l^JLc AkoJI ^3 

j 5 L*iJI v_sv9 bxS ouu ogjJI ^3 Stream ClassesJI /x^uuLaj 3 < Backing Storage />Ijc*^J 

: ^JUI 
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System.Object 

System.10 


Stream 

BinaryReader - — - 

--+- 


BufferedStream 

Binary Writer 



i -• 


File Stream 

TextReader 


j j — ♦ 

- ♦ 

MemoryStream 

StreamReader .. 


■ ^ 1 

System. Net.Sockets 

StnngReader . . 



System. Net. Sockets. NetworkStream 

TextWriter j - 


t |- ♦ -| 

System. Security. Cryptography 

StreamWriter i- 





System.Security. Cryptography.CryptoStream 

StringWriter 



6 _>SljJI v jjo vjj^o jIjiiLo ><ejsJ v_s^->juLjuui J^Luuu ! BufferedStream Class - 1 

BufferingJI oL*jo>JI v^sli />jcg-juuu LS <Lao <LLc -LLuJ cj3$x> JLuju 
L^jJLc JIju 0^3 JLflj-jujJI 3 I JLuJjVI 9 AsJLoJI OrV AL_juJ 3 6j5\jS O 3 SU Cu> AjIi^JI 
I^jlcLd ^IjjoJI oULJI J < ^Joj-juj 3 6_>5li As^LUdl ^/D JlZ^ljLjuUU AcLkJI oLejo>> 
O 3 SU <_s\_JI o LLJI ^9 BufferingJI /iljctoJ ^JJO v_S^jjjLuj'JI vjj^JI O j0 ^ 1 C*S 3-0 JLuUU 
v_s^9 L^S 2-^33 oULJI LjLo /)Jj gl>>JI 3 JL>i\)l oLJLxC qjo £j-jujI gJL szjoJI 1^9 
JlZ^IjLajUU^ i j_L JLuuu AJLJI v_sv9 /x^>Luuu Lo 3^3 IgJLujjl jLbujl <^9 BufferJI 

oULJI ojpeJ NetworkStreamJI §jo oLSLLI oLe** ^9 U^lc BufferedStreamJI 
lo5 Backing storage ^MJJI \i& Jl^LjLajUU \J Ljlx> 6 _>SIjJI ASL JLJuil Jl IgJLuJjl JjjoJI 

.. LqjLuJ U_jSi 

3 I l^oUj gLu 3 BufferedStreamJI />Ijc*oujI julc 4096 bytes />o jjJl JSLu 
: JLxS lo5 BufferedStreamJI />jcg_juuu 3 .. <A>bJI ^uuo L^LJLqj 


C# 

using System; 
using System.Text; 
using System.10; 
namespace Network_Buffering 
{ 

class Program 

{ 

static void Main(string[] args) 

{ 

ASCIIEncoding asen = new ASCIIEncoding(); 
byte[] xx = asen.GetBytes("Hello Buffering"); 
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MemoryStream ms = new MemoryStream(xx); 
readBufStream(ms); 

} 

public static void readBufStream(Stream st) 

{ 

11 Compose BufferedStream 
Buffered Stream bf = new BufferedStream(st); 
byte[] inData = new Byte[st. Length]; 

11 Read and display buffered data 
bf.Read(inData, 0, Convert.ToInt32(st.Length)); 
Console.WriteLine(Encoding. ASCII.GetString(inData)); 

} 

} 

} 


VB.NET: 

Imports System 
Imports System.Text 
Imports System.10 
Namespace Network_Buffering 

Class Program 

Shared Sub Main(ByVal args As StringQ) 

Dim asen As ASCIIEncoding = New ASCIIEncoding 
Dim xx As Byte() = asen.GetBytes("Hello Buffering") 

Dim ms As MemoryStream = New MemoryStream(xx) 
readBufStream(ms) 

End Sub 

Public Shared Sub readBufStream(ByVal st As Stream) 

Dim bf As BufferedStream = New BufferedStream(st) 

Dim inData(st.Length) As Byte 
bf.Read(inData, 0, Convert.ToInt32(st.Length)) 

Console. WriteLine(Encoding.ASCII.GetString(inData)) 

End Sub 
End Class 
End Namespace 

j+c ^9 ASCIIEncodingJI Byte Array ^jJI ^ Lo3 

UJLa^uul LaliLiul readBufStream ,_yJI oLLuuJ />J MemoryStreamJI 
BufferedStreamJI ^MiUI a^li ^3 StreamJI L^J\L> ^ 

c uxUo 3 Encoding.ASCIIJl />Ijijs^-juuu i_s_>>l 6 >o i_sJI ALkp«j jsu A>lj 3 i 2 *io AcU cu Luos 


jjjsu il AfljLuuJI BuffringJI AJLo^. 3^3 : MemoryStream Class -2 
L^J UjSZzj .-LLulSSJ JLl&JLjuJI 3 I 0LjuJ^)\I| OjSljJS iO l93^0 oULuJI 

IgJuOjCfcjLjujI JUuO^ IcxS /)AitijuUU3 jjuS JijuUU t^JjCXSzJI £__>juUU LojO V_qJjO i_sJLc 

: 6_>SljJI v_sO 
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c# 


MemoryStream ms = new MemoryStream(); 

pictureBoxl.Image.Save(ms, System.Drawing.Imaging.ImageFormatJpeg); 

byte[] arrlmage = ms.GetBuffer(); 
ms.CloseO; 

VB.NET: 

Dim ms As MemoryStream = New MemoryStream 

pictureBoxl.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg) 

Dim arrlmage As Byte() = ms.GetBuffer 
ms.Close 

StreamJI §jo JoIsa < UjLuj I^joIa*jLjujL LoJ I 0 J 3 : NetworkStream Class -3 

Name Spaces I^jIcjaujI ^3 SocketJI />L ZZljLjuJ Lr OS. xuuik Jl pJLajU^^J 

l _yJLc sSsAsy \) il unbuffered qjLNetworkStream ^^1 >^3 System.Net.Sockets 
cb\)l c '^> Buffered Stream ClassJI Backing Storage 

(jjLuoJI JlioJI v_sO Luoj v_suJI 6 j3^JI JLujjI Ajjj Jlio5 v_sJL lo^ />Ai«jLjuuu3 

: SocketJI j+c jA>\ ^jJI 6j5 \a 


C# 

TcpCIient myclient = new TcpCIient ("localhost",5020);//Connecting with server 

NetworkStream myns = myclient.GetStream (); 

BinaryWriter mysw = new BinaryWriter (myns); 
mysw.Write(arrImage);//send the stream to above address 
mysw.Close (); 
myns.Close (); 
myclient.Close (); 

VB.NET: 

Dim myclient As TcpCIient = New TcpClient(localhost, 5020) 

Dim myns As NetworkStream = myclient.GetStream 

Dim mysw As BinaryWriter = New BinaryWriter(myns) 

mysw.Write(arrlmage) 

mysw.Close 

myns.Close 

myclient.Close 

/)Jc«jLjuuu 3 System.10 Name Spaces /JjcsAujL I^Ical^I />a : FileStream -4 
OJui) jjASZJ3 V-qJjO i jjO ijcljJjJI 3I V-oJLo |_sJI AjLSJU CI3JUJ ololoJI JjoUiJI v_SvS v_S^jjjLujI 
053 JO J^LuUU oULJI Buffer ^A^jljuUU cilA-O** Backing Storage Class o^lAHJI 

jLuuuo AjAxj lAolgJI j3jo\JI i jj03 Ocl^jJI 3I 4 jLSJI AJbxC- i jjo cL^ju\JI 6>SIjJI v_s\S 

. vaJO Lot) ^0 JlZ*AjuUU 3 cuJLc 4 jL 5 JI 3I cuuo 6cljjjJI iljjoJI vjJLoJI 
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c# 

FileStream FS = new FileStream(@"C:\MyStream.txt", 

FileMode.CreateNew);// Any Action For Example CreateNew to Create Folder 

VB.NET: 

Dim FS As FileStream = New FileStream("C:\MyStream.txt", FileMode.CreateNew) 

: FileModeJI &o AJUI EnumerationJI />l. I LiSuOJ 

FileStream(0"C:\MyStream.txt",FileHode.); 

sip Append 
sip Create 


CreateNew 


sip °P en 

Mp OpenOrCreate 
«p Truncate 


YL^jI a3j>5joJI >—qJLoJI i_sJI Lo KJ oj A9L0J Append -1 
i>3>3jo vjJLoJI olS lil i_sJL> overwriting Jjo^j -vjju> <jJLo cLojuJ Create -2 

JSLJjj 

vjJLoJI :>3 >9 AJb> ^ Exception uJoszj aI \)l CreateJI un 9 loS 3^3 CreateNew -3 

iJ^jljuUUO 

ajusjoJI <-_qJLoJI i>3^>3 /)Ac AJb> v_s^9 Excption Lo <^aJLo ocI^jU Open -4 

/>3jjj 6A3 j>3 /)Ac AJL> v_s^3 qjs-\jsu p^su, >—qJLoJ I jc> 3 lil AJb> v_sO OpenOrCreate -5 

. ALuJuL 

Lcjls dl2>-3 v-aJjoJI 0U3JJS10 v_9JlsJ />jdt^juuu3 Truncate -6 

: Stream Members : LuU 

v_sJL Lo^ v_sv^>3 StreamJI oLuiSuO IgJ Jj-ljuJU v_scJI ^^^3^^031 3 3^5 13^11 jJjO A£3jOwtO JULd> 


FileStream FS = new 

FS. 

: V BeginRead 
V BeginWrite 


CanRead 


^ CanSeek 
CanTimeout 
CanWrite 

V Close 

V CreateObjRef 
Dispose 

V EndRead 


AJLxc JjlAj />jdo^uuuoJI StreamJI ol 5 lil qs^szoJ />jd*^uuU3 CanWrite 3 CanRead -1 
\) a I Alt> v_s^9 False 3 J-ju olS lil AJb> v_s\S True Ao^9 j \) />l AU 5 JI 3! oeljjJI 
A^btoJI JjS <A>\L^JI cSJuo AiLSJI 3I OcljJiJI AJbxC cl>>! J -«3 6 aLc 

/xcjj 6AL2JI3 Current StreamJI §330 oaIx: SeekingJI />_\^_juuu cu> CanSeek -2 
S^jj Ld>judi3 FileStreamJI Jio AJLo^JI oAd> Backing Storage Jl^La_juUU v_S\jJI o LoJJJI 
Backing l _ s JLc cS3^%j \) Stream ClassJI ol 5 IJ AJb> false Ao^9 ^>^9 True Ao^9 

. Storage 
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Jl <w5b* sSs^^j streamJI ol 5 lil qJL> True Ao^s sp^As CanTimeout -3 

. qjJbxsJJ 0^3 v_sJosa v_yoJI3 Timeout 

qjlgj <i 9 jSLoJ L^juo 6iLflj_juj\JI ByteJU StreamJI /ct> A9 ^sa>J />a>ajuA 3 Length -4 

. StreamJI psy> ^jJLc sIa 493^^uJI ppt> aa^aJ 3! StreamJI 
Stream J gJ^oJI aa^a 3I qs/zxJ Set 3 GetJI />a*ajuA 3 Position -5 
; v_sJL Lo5 v_s ^3 ujji 3 jijjoJI 1 jjo <4c3jcoejoj StreamJI o !■■<» Ay .V. .3 

: Synchronous Methods <tuoljAoJI -1 

BufferJI ^3 Stream Data 6d>J ^A^jljuUU^ Read Byte 3 Read .1 

LxxS ReadByteJI /xIa^ajujU Igjzly} /xa_«jj v_soJI oIaLJI ^ac aja^j 
0 4 jojS ReadJI &>>j caa> StreamJI qjlpj As^sas LgJ\L> i >o ^Ja-juA 
.StreamJI cI^aI qJL> ^3 1 - AaJ ReadByteJ^ 
tjSjyjg StreamJI j+c JLuujJI q. Jj!XsJ /)A>AjuUU 3 WriteByteJl3 Write .II 
.WriteByteJI /A. L £>>0 J 5 v_s\S L^aiLS /XJj-ajU unJI O IaUI iAc 

: Asynchronous Methods <=UuoliAoJI t uj^qJbuoJI -2 

/>Ia>AjujL; qjLSJI 31 6cljjJI qJLxsJ BeginWriteJl3 BeginRead .1 

! v_sJI aJI JIaJI v_s^ 9 lx >5 oIjAud3jL; Ajuuuoj> a>U 3 i jjoljAx5JI j-^sJI StreamJI 

FS.BeginRead( 

IAsyncResult FileStream,BeginRead (byte[] array, int offset, int numBytes, AsyncCallback userCallback, object stateObject) 
array: The buffer to read data into. 

qj_c qjLSJI 3! qAo od^jJI q_Jjasd /xa^ajuA v_93juj v_svaJI 3 Byte BufferJI -1 
qjLSJI 3I ccljjJI & 9 $jo q j 3 ^Asy cJ3_uj USJJI3 offsetJI -2 
/vAi-juj <_sxaJI oIaLJI 1 jjo a>JI ajaxj q jS pjj v_93jju 1-SAJI3 numByteJI -3 

L^jcl j 3 3I IpAxL^ 

ojo cI^aJI jac qJLcAAjuul /xa oa> Optional Delegate 3^3 AsyncCallbackJI -4 

qjLSJI 3I ocl^aJI qJLxxc 

Read & Write Jl /)A>AjuUU 3 User Provided Object ^3 StateobjectJI -5 

. RequestsJI Oj+c o-c Request 
. Stream OperationJI qJl> Jaoj sSaJI 3 IAsyncResuItJI Begin MethodsJI spry 

Stream OperationJI a^a lil qJL> />A>AjuA 3 EndWriteJl3 EndRead .II 
qJjAsdl clpAil jLLaU ca jl> h_sJLsJI Stream OperationJI i jjo cL^aJI asa 

qj3JUAoJI qJLxsJI AflA /J qJLLuuJI 

: i 5 \^>q StreamJI i^aJIq ^qjuu&JI uaa lJU£>q 

Jjjj /xa Lu> o^asjoJI qJLcxsJI />LojI asa BufferJI 0L3ASJO gj>aAJ />a>ajuA 3 Flush -1 
.Stream Object ^3 £>aja=a pj sSjJI DestinationJI ,_jJI BufferJI 0L3ASJO 

Stream Jl JjJ o-® 6j3J^tjoJI ResourcesJI StreamJI JYLcJ />a>ajuA 3 Close -2 
StreamJI ol ^ ASLJ3 Finally block v u^UJI c><JI ^ L^joIasajujU q^ujs Object 
/>ac 0L0A2J3 aaaaJI cLlI Exception csl ia»3a> qJL> v_s^9 ^I^joJI qJU py>j$ q^YLcI /Aj^uj 

.gijoU^jJI v_9^tcl Asa 6_>SljJI v_sx9 ^>_j I^joJI OAd> cLqj 

v_s ^9 qJljLflAjujI 3I qJLujjl jjjj sSjJl3 StreamJI psy> ajasaJ Jl^lLjuUU^ SetLength -3 

£_UosaI ^1 JUli lS^3j ^3^ SetLengthJI ^a^aJI Jit StreamJI ob lil qJL> 
JLI ojLb lil \)l q^AsLiJI oa5> />Ia>ajujI §JoajuA ^ . /xJ-uj J^JjA qJ3A3 />ac 3 StreamJI 
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o^xju IjJ CanSeek 3 CanWrite A^bdl J\l> jjjo JUjJ cu>-\LzJI dULoj 

. StreamJI />*> jua^j J+9 J3I 

:Stream Manipulation : DU 

^IjlxajujI jojj . eolsdl ^3 Text 3I Binary Data JjlJ StreamJI oLuiSuO />l-)C«j_«jjl qSuOJ 
/>|jc*jLjujl Binary DataJI §jo JoIsaJ BinaryWriterJI 3 BinaryReaderJI 
< TextJI gjo JoLszJ StreamWriterJl3 StreamReaderJI 
jac Text jjJj Stream 0-0 UnicodeEncoding 3I ASCIIEncodingJI ^Ijc^a^I ^3 
(jjji3jL«joJI i JjO AC9 jOA%jO JLJUUU JLuujJI ajlc Stream ,jJI Text ^3 JLsLa^AJI 

! v_sJUI J^LuuJI v_s^9 LoJ v_s\j3}3 


ASCIIEncoding asc = new ASCIIEncoding (); 

asc. 


GetByteCount 


Sf GetBytes 

V GetCharCount 

V GetChars 

V GetDecoder 

V GetEncoder 

V GetHashCode 

V GetMaxByteCount 

V GetMaxCharCount 

V GetPreamble v 


^>^3 String 3I Character Array Jl>U ca,j> Overloaded Method ^3 GetByteCount -1 

.. J-a-J v_ 93 juj v_sgJI oLjLJI iAc 

U IfrJLuurJ §JojLjua j ,_sa> Byte Array <jJI StringJI GetBytes -2 

. StreamJI 

vjvJ 03SJ v_93juj ^saJI «J>>\JI iAc Byte Array A>b cu> GetCharCount -3 

. Character ArrayJI ^3 31 StringJI 
oULJI JL^ajujI jac />Ai t AjuuU3 String ^1 Byte Array 0-0 J^d />jc«ajuul >3 GetChars -4 

. lS_>>I 6_>o i_sJI lgJ3^tJ StreamJI 


L^JLcjUuuil um Text JaJ StreamWriterJ I 5 StreamReaderJI gA JaLjJs 

:«_svJb Lo 5 j} JL a txjuuu3 > puu System.IOJI jjo 

-jJjo 0^0 6cl>aJU StreamReader 

C# 

StreamReader str = File.OpenText(openFileDialogl.FileName); 
textBoxl.Text = str.ReadToEnd(); 

VB.NET: 

Dim str As StreamReader = File.OpenText(openFileDialogl.FileName) 
textBoxl.Text = str.ReadToEnd 
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:<jJ jo ,_sJI qjLUU StreamWriter 


C# 

string fname = saveFileDialogl.FileName; 

StreamWriter fsave = new StreamWriter(fname); 
fsave.WriteLine(textBoxl.Text); 

VB.NET: 

Dim fname As String = saveFileDialogl.FileName 
Dim fsave As StreamWriter = New StreamWriter(fname) 
fsave. WriteLine(textBoxl.Text) 

jxij Binary Data JaJ BinaryWriterJIs BinaryReaderJ I gjo JjoLaJ 3 
icSsJb La 5 {jjjujjmmj jxJ System.IOJI ^jjo I^JIcjulujI 

:StreamJI ^ Binary Data 6cl jsJ BinaryReader 

C# 

NetworkStream myns = new NetworkStream(mysocket); 

BinaryReader br = new BinaryReader(myns); 

:SocketJI j+c StreamJI ^jJI BinaryData JLuu^V BinaryWriterr 

TcpCIient myclient = new TcpClient("localhost", 5020 ); 

NetworkStream myns = myclient.GetStream(); 

BinaryWriter mysw = new BinaryWriter(myns); 

mysw.Write(arrlmage); 

VB.NET: 

Dim myns As NetworkStream = New NetworkStream(mysocket) 

Dim br As BinaryReader = New BinaryReader(myns) 

Dim myclient As TcpCIient = New TcpClient("localhost", 5020 ) 

Dim myns As NetworkStream = myclient.GetStream 
Dim mysw As BinaryWriter = New BinaryWriter(myns) 
mysw.Write(arrlmage) 


e l £ao JjolaJI Ouj 03JJI cssd StreamJI oLmiiuo < p^j Lmj Ia5Lq>3 

«_s\9 1 Guy ujjJI (jjoljjuo (jjol a )juoJI StreamsJI jjy 

JjLjj Jjill Ouj 03JI t_s \3 SteamingJI jJtuo ijJUJI J^uJI 

.SQL 3 Access oliLu ojlcLs LUI3 /tSsu 
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Fadi Abdel-qader - Dot Net Networks & TCP/IP Programming 


Chapter 5 

Applied Streaming in Dot Net 


- Create a Simple Remote Control Application 
Using StreamReader & StreamWriter Classes 

- Create a Remote Desktop Application By Using 
TCP Streaming Connection + (Control in Full 
Version Book) 

- Create an Advanced Remote Web Camera 
Monitoring System By Using TCP Streaming 
Connection & Image Processing. 

- Create a Simple Application to Store & Read 
Images (Binary Data) in Microsoft Access & 
Microsoft SQL Server Database Management 
System By Using Streams Library & ADO.NET 
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/XjJ>jJI jJjOJS'jJI CliJ I _/XjuUU 

TCP Streaming Jl />ljct^ujU oliijjJajJI qjo Ac3j&j%jo Q«£uUI Ijji) v_s \3 (jjji 9 Lj l_ 93 _juj 

_>>l />ILu 3 Jl l _jj^juiju 3 cLqJo[ 3 gool^jJI JjAjuuu 3 cl&JoL Jl su /xSjsjJ />lLu V_S^JUULJUJ 

clJLxsl; >09^ >jlC ulioJI cUSI^jjoJ />Lku3 Aszj ,jX v_jLiSuoJI £Lb_Juj ^ 9 l>cJ 

l_ju>Ld 

u^- juUU JL^u\JL />UdJI />3iij v_ 9 \li>l L_Sl Jl>- 3 AJb> l_s ^93 AJaajJjoJI j3^jJ ^JjLqjo 
JLCI 35 v^9 Binary Data Jl Aaj>Jo \*Ms « TAPI IP Telephony Jl ^Ijct^U />LkJI 

.SQL Server Database 3 Access oULJI 

:Stream Reader & WriterJI joIjlsqumjU Remote Control Example 5.1 


( pyyuwj p5\l Chatting j <iuu Jj ^iaU^j ^bjl s duuuu vi j jyj Jsumu ijvimJa; JL© 
4joJ£ JLuj^U LuOlS bj \jOjjsu Luk> Server JI t^JJ >015! cUslcJ gjolJLsJuuj! 
Calc «oLSJ JL© L©3 b|3 cud notepadJI goju j»$ju ub serverJI c$Jj notepad 
: IJl5l£>3 cus cujuubJI «U Jl £uju ServerJI v_sJI IgJluijjd 

Client ChatJI goolijj ^ JLujjJI gpob^j L_&JLitj \) ; Client JLujjJI gjjoU_>j cLluI ; J3I 
TCP Connection 0-0 J 5 <^3 Jl^jLajUU^ ChapterlJI ^ cuLiub Los sSjJI 
j>3iyoJI ^Ijct^LJ JLuujJI sJLcxc Jjj>J StreamWriterJI 3 NetworkStreamJl3 
^ vs^JJI u^JI sJLcx£ /ya StreamWriter ObjectJI 6:>3>3 joJI WriteLine 

jjlc NetworkStreamJI IpJLujjl/> jcJ BytesJI 0-0 Ac3jojsio ^1 TextboxJI 

vjvs LoJ juJl> £3>Aijuo cLiuL />J cjlJJ 3 ServerJI goob^j ,_sJI TCP Socket ConnectionJI 

: sjJUI JJLjlAJI 


Forml.cs [Design] | 



: AJUI Name Spaces A9L5L ps pi 

C# 

using System.Net.Sockets ; 
using System. 10 ; 

:oJUI j>35JI AjLSJ ps Send Button ^3 
try 

{ 

TcpCIient myclient = new TcpCIient (txt_host.Text, 5020 ); // Jl .Ju^Socket 
NetworkStream myns = myclient.GetStream (); // oSJa^l /j^clLUI o:>LjlJ 
StreamWriter mysw = new StreamWriter (myns); 
mysw.WriteLine(txt_msg.Text); 

mysw.Close (); 
myns.Close (); 
myclient.Close (); 

} 
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catch (Exception ex) {MessageBox.Show (ex.Message );} 


VB.NET: 

imports System.Net.Sockets ; 
imports System. 10 ; 

Try 

Dim myclient As TcpCIient = New TcpClient(txt_host.Text, 5020 ) 

Dim myns As NetworkStream = myclient.GetStream 
Dim mysw As StreamWriter = New StreamWriter(myns) 
mysw.WriteLine(txt_msg.Text) 
mysw.Close 
myns.Close 
myclient.Close 
Catch ex As Exception 
Msgbox(ex. Message) 

End Try 

6 jjo Text t^l c dj3^%J3 StreamJI JLiijL_uul i_yJLc i_sjJl3 ServerJI goob^j cLoju\I3 

v_sJLJI JSL^I LaS AjJl> £_3j_Luuo cLjjuL pS .. 


Forml.cs [Design]* | 

□ -_ CL 


tH Response Form - fmo_82 [^J 


I am Waiting Your Order Sir :: j 


: AJUI Name Spaces qsLoL ps 

C# 

using System.Net.Sockets ; 
using System. 10 ; 
using System.Threading; 

: qJUl v-sijjLszjJI A9L25J pj 

TcpListener mytcpl;// Objects Declaration 
Socket mysocket; 

NetworkStream myns; 

StreamReader mysr; 

: <_sJL Lcx5 6ju Jl> ^ 3 jlij 0 cLuijuL p$su pj 


void our_Server () 

{ 

mytcpl = new TcpListener ( 5020 );// Open The Port 
mytcpl.Start ();// Start Listening on That Port 

mysocket = mytcpl.AcceptSocket ();// Accept Any Request From Client and Start a 
Session 

myns = new NetworkStream (mysocket);// Receives The Binary Data From Port 
mysr = new StreamReader (myns);// Convert Received Data to String 
string order = mysr.ReadLineQ; 


// you can add any order and Response Flere 

if (order=="notepad") System.Diagnostics.Process.Start("notepad"); 
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else if (order=="calc") System.Diagnostics.Process.Start("calc"); 

else MessageBox.Show("Sorry Sir Your Request is not in my hand",order); 

mytepl.StopO;// Close TCP Session 

if (mysocket.Connected ==true)// Looping While Connected to Receive Another 
Message 
{ 

while (true) 

{ 

our_Server ();// Back to First Method 

} 

} 


VB.NET: 

Private mytcpl As TcpListener 
Private mysocket As Socket 
Private myns As NetworkStream 
Private mysr As StreamReader 

Sub our_Server() 

mytcpl = New TcpListener( 5020 ) 
mytepl.StartO 

mysocket = mytcpl. AcceptSocket 
myns = New NetworkStream(mysocket) 
mysr = New StreamReader(myns) 

Dim order As String = mysr.ReadLine 
If order = "notepad" Then 

System. Diagnostics. Process. Start("notepad") 

Else 

If order = "calc" Then 

System.Diagnostics. Process. Start("calc") 

Else 

Msgbox("Sorry Sir Your Request is not in my hand", order) 

End If 
End If 

mytepl.StopO 

If mysocket.Connected = True Then 
While True 
our_Server() 

End While 
End If 
End Sub 

Aasl^joJU Request ^sl ^3^3 AJL> SocketJI tjJLc oju^uj ^3jl<joJI />^su 

L^joJLuaij SocketJI oULr ^sl ^3^3 AJb>- v_s^3 6 juJl> Session cLojuI3 
Jjo^JI />Ijc*i^jujL; aJLujjJI u n^eJu pj Text ^jJI StreamReaderJI />I-\j%j_jujIj 

Start ^3 jLvoJI />ljct^jujL; L^jIcjlLjujI pju notepad v_s^ aJLuj^JI oul 5 lil \Lloj clJoj-LuJI 
...System.Diagnostics Name Spaces ^3 6^3^13 Process jjoAISJI 
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JU Jj^juulJI Iju v_s^9 ThreadJI g^>3 o-° -V^ ajjj> Thread tj- 0 ^ 

: Sr ?JL Lo 5 Form 


C# 

private void Forml_Load (object sender, System.EventArgs e) 

{ 

Thread myth; 

myth= new Thread (new System.Threading .ThreadStart(our_Server)); 
myth.Start (); 

} 

StreamJl3 SocketJI J\Ld o-o jSU Form ClosingJI vjJUI qsLoL />j 

.. gpoljjjJI v_s^9 

private void Forml_Closing(object sender, 

System.ComponentModel.CancelEventArgs e) 

{ 

try 

{ 

mytepl.Stop (); 

Application.ExitThread (); 

Application.Exit(); 

} 

catch (Exception ex) {MessageBox .Show (ex.Message );} 

VB.NET: 


Private Sub Forml_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
Dim myth As Thread 

myth = New Thread(New System.Threading.ThreadStart(our_Server)) 
myth.StartQ 
End Sub 

Private Sub Forml_Closing(ByVal sender As Object, ByVal e As 
System.ComponentModel.CancelEventArgs) 

Try 

mytepl.StopO 
Application. ExitThread() 

Application. ExitQ 
Catch ex As Exception 
Msgbox(ex. Message) 

End Try 
End Sub 

jsu Clients ComputerJI el&JoL />$su cLojul AajLuuJI 0I3.I0 jJI u-ajLij LiSLaj lo^ 
3I Shutdown AoJ 5 (vbUI &o ^^13) Shutdown.EXE ^aJLoJI jl^uu dU:>3 

Windows J^aJI />lki §jo vj^I LSJJI3 RPC - Remote Procedure Call Jl >ol 
ojlcIs ^3 Orfj^ Stream LibraryJI />a ^LjLjulL)ljuJ s^JUl JlioJI ^ «... 2000 /XP 

... Microsoft SQL Server oUL> 6^153 Access oUL> 
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,_sJI v-^u».)l pJfluuj Qj<id>o JU)\I Remote Desktop j&Usu cUuu\) JUo 5.2 

: Server Jl 


v_jLi 5 uoJI JjjjJ 1 x<juuu Remote Desktop gpoU^j cLojuL JbuoJI IJl& v_svS 

: Stream Library JI3 TCP Jl />l-v^uuL jj>\ ^1 0- 0 

: Client Jl r\oU» cLuju! \lgl 

I v_sJ LJI J^LuuJI v_s^9 La 5 JuJ£3 j_*juuo cLujuL jo^su-uj l jj r <-JaJ 



:AJUI Namespaces Jl j i_ 93 _juj 


System. Net 
System. Net. Sockets 
System. 10 

Qjjjio cbuiSuo A>5 j \J QjI il API Jl Jl3^> />Ijc«j_«jjL v_jui 5 uoJI gJo-Juu JolaJI AjLxC pjj 

v_aJLoJI JI3JJI OJui> AJLuuuiSL; Ouo 3 Jl 93 ciJjtxsdl OJdi> cljj>\) O_0 O3J1JI v_s\S 

/>jc«jjuuu v-jLiSuoJI jJo-uj 6j 3^3 ^laJ\)3 < Lu>\) L^jolAitLjujI CaptureScreen.dll 

< Imaged sjulSLoJI $ 1 ^ 6 j^> &>>' CaptureScreen.GetDesktopImage() aJIjJI 
aJLxc Buffer Jl v_s^9 1^2-033 Stream ^jJI 6 j^xi\ ojoi> Jj 3^ 0- 0 -V^ IgJLujj^ 
LbLuu oL>>Jj sSjJl3 MemoryStream Class Jl /JjctijuuU AJLo^JI ^3 < JLuujJI 

Iv_sJj LaS3 

C#i 

MemoryStream ms = new MemoryStream(); 

Image img = CaptureScreen.GetDesktopImage(); 

img.Save(ms,System. Drawing.Imaging.ImageFormat Jpeg); 

byte[] arrlmage = ms.GetBuffer(); 

VB.NET: 

Dim ms As MemoryStream = New MemoryStream() 

Dim img As Image = CaptureScreen.GetDesktopImage() 
img. Save(ms, System. Drawing. Imaging. ImageFormat .Jpeg( 

Dim arrlmage As Byte = Qms.GetBufferQ 


I0J3 Socket ^sujsij 1 jjo Ju\) jj>\)l jlgJsJI ^^Jl AloaJjoJI j3^JI JLuj_;\)3 

: TCP Socket />\. JC^LjuJ I AJL> v_s ^9 
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C#i 

TcpCIient myclient; 

MemoryStream ms; 

NetworkStream myns; 

BinaryWriter mysw; 

myclient = new TcpCIient (Server_IP.Text, 5020 );//Connecting with server 
myns = myclient.GetStream (); 
mysw = new BinaryWriter (myns); 
mysw.Write(arrImage);//send the stream to above address 

ms.CloseO; 
mysw.Close (); 
myns.Close (); 
myclient.Close (); 

VB.NET: 

Dim myclient As TcpCIient 
Dim ms As MemoryStream 
Dim myns As NetworkStream 
Dim mysw As BinaryWriter 

myclient = New TcpCIient (Server_IP.Text, 5020 ) 'Connecting with server 
myns = myclient.GetStream () 
mysw = New BinaryWriter (myns) 
mysw.Write(arrlmage) 'send the stream to above address 

ms.Close() 
mysw.Close () 
myns.Close () 
myclient.Close () 

StS vJI JLujjVI Acj-juj ^sJLc cLr Interval Jl ±-^3 Timer :>sSJI 
. AjIuOuo jjJsL) 100 MS uL 9 LAN ASLa_AaS3 < i_Sjj>l i jjo ASLljuuJI 6j\sld$ Ag_> i jjo ) 

: Server Jl pyoljjj cUuul LuU 

Iv_s0LJI J^LaJI v_s^9 Lcx5 AjJL> juo cLuuuL JojJ3 
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System. Net 
System. Net. Sockets 
System. 10 


:AJUI Namespaces Jl 


:v_sJL L aS TCP Listener JI3 Thread JI3 TCP Socket Jl />j 

C#: 

Thread myth; 

TcpListener mytcpl = new TcpListener ( 5020 ); 

Socket mysocket; 

NetworkStream myns; 

VB.NET: 

Dim myth As Thread 

Dim mytcpl As TcpListener = New TcpListener( 5020 ) 

Dim mysocket As Socket 
Dim myns As NetworkStream 

IonJL loS JLajLjuuJI Method ^QJjS2jU /XJ 

C #1 

void ServerMethod () 

{ 

try 

{ 

mytcpl.Start (); 

mysocket = mytcpl.AcceptSocket (); 
myns = new NetworkStream (mysocket); 

pictureBoxl. Image = Image.FromStream(myns); 
mytcpl. Stop(); 

if (mysocket.Connected ==true) 

{ 

while (true) 

{ 

ServerMethod (); 

} 

} 

myns.FlushQ; 

} 

catch (Exception)!} 

} 


63 






VB.NET: 

Private Sub ServerMethod() 

Try 

mytepl.StartO 

mysocket = mytcpl.AcceptSocket() 
myns = New NetworkStream(mysocket) 

pictureBoxl. Image = Image. FromStream(myns) 
mytepl.StopO 

If mysocket.Connected = True Then 
Do While True 
ServerMethod() 

Loop 
End If 

myns.FlushQ 

Catch el As Exception 
End Try 
End Sub 


: Form JU Iju <^3 v_sJI_JI i^SLII Thread Jl 

C#i 

myth= new Thread (new System.Threading .ThreadStart(ServerMethod)); 
myth.Start (); 

VB.NET: 

myth= New Thread (New System.Threading.ThreadStart(AddressOf 

ServerMethod)) 

myth.Start () 

»jj uu i csJj jJjo voSuoJI 6<J Luu j\ QjujJs Lmj I V^n>3 

jiSs *Jl <u*ol> §jo Remote Desktop guoU>» J os. «uj>b AjcjuuuJI 

. API Jl Jl3^ />lJc*juujU JU^3 Kayborad JI3 Mouse Jl j*c 
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qJL> TAPI Telephony JLoj^Iq I vuoLSJI cusIjjoJI j&UaJ JLuo 5.3 

: <bjuLoJI j<uaJI i_sv3 »*&> ^qjq 


V_-lL5JI ,JjO ^Z^LjulLaJ I I_sv9 £<^b<)joJI IJlQ} <*Sl5 JSZlLjuJ 

(jj^Lsdl Jo I vjOLc JLaj VI \S^jJ 3I jLuoajuuj JI3 I v_JLbJ 

cuJUl 


Mobile : +962796284475 

Phone: +96265055999 

E-mail: fadi822000@yahoo.com 

BOX: 311 Mail Code 11947 Tariq—Amman-—Jordan 

L-iL&U jJl £2 jaJI 

www.fadidotnet.org 
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SOL Server 9 Access oULu ojlc.19 ^3 6i<±a t w jj*J JUo 5.4 

: StreamJI oLu£qq ADO.NETJI 


i_yJLc 6j$\ jJU 6js^> J^JuoJ Memory Stream Class Jl JUoJI \l& vjns Jl^lLjuUUljuJ 
Lo 53 GetBuffer Method />Ijc*^uuIj U^\J Bytes ^1 L^JLs^j I^Suoj Stream Data 


try 

{ 

MemoryStream stream = new MemoryStream(); 

pictureBox.Image.Save(stream,System. Drawing.Imaging.ImageFormat Jpeg); 
byte[] arr = stream.GetBuffer(); 

Store_it (arr); 

} 

catch(Exception ex) 

{ 

MessageBox.Show(ex. Message); 

} 

} 

VB.NET 

Try 

Dim stream As MemoryStream = New MemoryStream 

pictureBox. Image. Save(stream, System. Drawing. Imaging. ImageFormat.Jpeg) 

Dim arr As Byte() = stream.GetBuffer() 

StoreJt (arr) 

Catch ex As Exception 
MessageBox.Show(ex. Message) 

End Try 

: Microsoft Access \ 1 qI 

Jl^jLAJLlJLJUJ ^scJIg Storejt Method Jl ,jrJI LgJLuuByte Array ^Jl asl. 

:v_jJL 1 x^3 DatabaseJI ,_jJI Byte ArrayJI OleDbParameterJI L^JYL> ^ 

C#: 

public void Storejt (byte[] content) 

{ 

try 

{ 

oleDbConnectionl.Open(); 

OleDbCommand insert = new OleDbCommand( "insert into img values 
(?)",oleDbConnectionl); 

insert.Parameters. Add(new OleDbParameter("@pic", OleDbType.Binary)).Value = 
content; 

i nsert. ExecuteNonQuery(); 

} 

catch(Exception ex) 

{ 

MessageBox.Show(ex. Message); 
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} 


finally {oleDbConnectionl.Close();} 

} 

VB.NET 

Public Sub Store_it(ByVal content As Byte()) 

Try 

oleDbConnectionl.OpenQ 

Dim insert As OleDbCommand = New OleDbCommand("insert into img 
values (?)", oleDbConnectionl) 

insert.Parameters. Add(New OleDbParameter("@pic", 
OleDbType.Binary)).Value = content 
insert. ExecuteNonQuery() 

Catch ex As Exception 

MessageBox.Show(ex. Message) 

Finally 

oleDbConnectionl.Close() 

End Try 
End Sub 

ul oULJI OcljJiJ ojsLlszjoJI AiijjJaJI />ljctijujlj CJlcIs 1 jjo 6_>3^jJI 6t\j3 AJbxC- 

/xju3 Stream t.sJI DatasetJI v_s\S v_soJI 3 Binary Data Jl />jj 

!v_sJL loJ tlJjjxsdl 

C #1 

oleDbDataAdapterl.SelectCommand.CommandText = "select * from img"; 
oleDbDataAdapterl.Fill(dsPicturesl); 

byte[] arrPicture = ((byte[J) (dsPicturesl.Tables[ 0 ].Rows[ 0 ]["pic"])); 
MemoryStream ms = new MemoryStream(arrPicture); 
pictureBox 2 .Image = Image.FromStream(ms); 

VB.NET 

oleDbDataAdapterl.SelectCommand.CommandText = "select * from img" 
oleDbDataAdapterl.Fill(dsPicturesl) 

Dim arrPicture As ByteQ = (CType(dsPicturesl.Tables( 0 ).Rows( 0 )("pic"), ByteQ)) 
Dim ms As MemoryStream = New MemoryStream(arrPicture) 
pictureBox 2 .Image = Image. FromStream(ms) 

jJJ:> Byte Array ^9 ^>^3 DatasetJI ob-^toJ Casting LoJ 
I 6>o Stream ^>11 Byte ArrayJI JMemoryStream ClassJI ^1 ArrayJI 
... FromStream MethodJI />ljd*^uuL PictureBox ^lc. LuJLoj Uju^3 
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: Microsoft SQL Server LjU 


/>uu cul Microsoft AccessJI o-c SQL Server oLLr OJlcLqj 

Connection Jl Asz^ ot Lo5 < OleDbParameter ^ \J_v SqIParameter Jl 
jLuuuo J3\U jjjoj SQL Server DatabaseJIg Access DatabaseJI ^ vjLLjs^uu String 
SQL Jl i_sJLc i_SjJI jlg-^JI />oujI oJ jjjy+3 v_sOliJI Lol oULjJI OJLclaj (j^jLsJI k-aJLoJI 

:JLlo 5 v^JL Lo^ 3 Server 

: Connection Streing Jl cLioJ 

C#: 

string SQL_CONNECTION_STRING = 

"Server=SQL_SERVER_NAME;DataBase=DB_NAME;Integrated Security=SSPI"; 

VB.NET 

Dim SQL_CONNECTION_STRING As String = 

"Server=SQL_SERVER_NAME;DataBase=DB_NAME;Integrated Security=SSPI" 

:v^Jj Lo5 Connection Object Jl ,_sJ! /J 

C#: 

SqlConnection My_Connection = new SqlConnection(connectionstring); 

VB.NET 

Dim My_Connection As SqlConnection = New SqlConnection(connectionstring) 

: SQL Server oULJI ojlcIs ^3 6j^\ 


C#: 

public void Storejt (byte[] content) 

{ 


try 

{ 

My_Connection.Open(); 

SqlCommand insert = new SqlCommand( "insert into img values 
(?)",My_Connection); 

insert.Parameters. Add(new SqlParameter("@pic", SqlDbType.Binary)).Value = 
content; 

insert. ExecuteNonQuery(); 

} 

catch(Exception ex) 

{ 

MessageBox.Show(ex. Message); 

} 

finally {My_Connection.Close();} 

} 
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VB.NET 

Public Sub Store_it(ByVal content As Byte()) 

Try 

My_Connection.Open() 

Dim insert As SqlCommand = New SqlCommand("insert into img values (?)", 
My_Connection) 

insert.Parameters. Add(New SqlParameter("@pic", SqlDbType.Binary)).Value 
= content 

insert.ExecuteNonQuery() 

Catch ex As Exception 

MessageBox.Show(ex. Message) 

Finally 

My_Connection.Close() 

End Try 
End Sub 


: i_s>>l Picture Box ^3 

C#: 

SqlDataAdapter.SelectCommand.CommandText = "select * from img"; 
SqlDataAdapter.Fill(dsPicturesl); 

byte[] arrPicture = ((byte[J) (dsPicturesl.Tables[ 0 ].Rows[ 0 ]["pic"])); 
MemoryStream ms = new MemoryStream(arrPicture); 
pictureBox 2 .Image = Image.FromStream(ms); 

VB.NET 

SqlDataAdapter.SelectCommand.CommandText = "select * from img" 
SqlDataAdapter.Fill(dsPicturesl) 

Dim arrPicture As Byte() = (CType(dsPicturesl.Tables( 0 ).Rows( 0 )("pic M ), ByteQ)) 
Dim ms As MemoryStream = New MemoryStream(arrPicture) 
pictureBox 2 .Image = Image. FromStream(ms) 


Jl csJ! ^aI^I StreamJI ^Ij b auujl QjjuS Jjill JLuoJI Lo I 

Binary MemoryStream Jl «uju S cSsjUI JUoJI Server 

... Microsoft Access Database JI5 SQL Server Jl is 3 Data 


Transport Layer & Network ;dI.x^_mjI <>c vjJUI cpJI <_s^9 CajjlsJI 

.CjuJ 03JJI <mj 1 qsxjojjs Layer Programming 
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Part 3 

Transport & Network Layer Programming 


Chapter6 Transport TCP & UDP 
(Classes & Members) 

Chapter7 Synchronous Sockets Programming 

Chaoter8 Asynchronous Sockets 
Programming 

Chapter9 Advanced Multicasting Systems 


ChapterlO Voice Over IP Programming 
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Transport TCP & UDP 
(Classes & Members) 

- TCP Classes Members 

- UDP Classes Members 
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J* jC>>JI I cdll JXmJJ 

: TCP & UDP Classes Members : 6 


Members Jl UDP Classes JI3 TCP Classes Jl o-c J^uJI \l& ojcui ^3^ 
v_s^9 ol v_93j^oJI o-°3 1 Transport Layer Jl v_s\3 JjoIscJI pjj v_s^jJ I3 Lxgjuo J 5 J 
-vj-003 2^3 ,_jJI Flags JI3 Offset Jl 1^03 JLujjJI /xSLsoJI (jJLoj AadoJI 

OJWI ^JJL^ajJI ^Jj-QJOjUUCX JI3 J^uujjoJI ij^kJI lSjJ Destenation PortJI 3 Source Jl 

.UDPJL ^bJI HeaderJl3 TCPJL A^>bdl HeaderJI 3033^ sSjJl3 


0j3jJI 0I3JLC <jjj cuJ />jj Cj+> A243JI o 5 LJU 32 Bits l >o o $ 5 uj$ TCP HeaderJI J3I 
(^a^jJI jaSj$ 32 Bits i_s\3 ^JLuoJLuoJI pSj. JI3 16 Bits v_sO J_«Jio»juuoJl3 16 Bits i_s\S J^uj^joJI 
:oLLJL (j^jLsJI c><JI 5CO3 pjj cul^jJI v _s' 3 3 ChecksumJI ,_sJI qJL^JL 


Bits 

< -► 

1 4 8 12 16 20 24 28 32 



1 1 1 

Source Port 

Destination Port 

Sequence Number 

Acknowledgement Number 

Offset Reserved Flags 

Window 

Checksum 

Urgent Pointer 

Options Padding 

Data begins here... 


A 


QJ 

“O 

to 

QJ 

I 


▼ 


TCP Header 


Data Offset : 4 bits the number of 32 bit words in the TCP Header. This indicates where 
the data begins. The TCP header (even one including options) is an integral number of 32 
bits long. 

Window : The number of data octets beginning with the one indicated in the 
acknowledgment field which the sender of this segment is willing to accept. 


0 I 3 JLC l _yJLc a>I^JI o 5LJU oULJI 1 jjo 32 Bits ,jjo 035203 UDP HeaderJI Lob 

/yjj \) v_sOol>i3l J5LUUUS objLi>l Lo^s ChecksumJI 3 /JLouuuJI lot 16 Bits J-juj^oJI 

:JLajjj\)I ccJjox v_sO />>£joI. 

Bits 

i-► 


1 4 8 12 16 20 24 28 32 



1 


1 1 1 

Source Port 

Destination Port 

Length 

Checksum 

Data begins here.. 


UDP Header 
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: TCP Connection Oriented Protocol Jb A^>bJI ClassesJI \Jq! 


TcpClient. tcp = new TcpClient () ; 
tcp.| 

V Close 

V Connect 
7T Connected 

V EndConnect 

V Equals 

ExdusiveAddressUse 
* GetHashCode 

V GetStream 

V GetType 
LingerState 

T? NoDelay 
j* ReceiveBufferSize 
ReceiveTimeout 
SendBufferSize 

Jj* SendTimeout_v 


v_s^3 Properties JI3 Methods Jl 0-0 ,_sJLc TcpClient Class-1 

!v_sJL lo5 

: TCPClient Methods Uj A^>bJI ^gjLuoJI a£>I :\)gl 

IPJI 1^9 jjjyj serverJI g_o JlAjJI aJLxc />jd*jjuuu3 :Connect 

:v_?JL Lo53 Port JI />Sj9 ServerJU 

C#: 

TcpClient tcp = new TcpClient (); 

tcp.Connect( IPAddress .Parse ("192.168.1.1"), 5020); 


VB.NET: 

Dim tcp As TcpClient = New TcpClient 
tcp.Connect(IPAddress.Parse(" 192 . 168 . 1 . 1 "), 5020 ) 

.TCP SocketJI gjo JLoj\JI :Close 
.Asynchronies Result Asynchronies Connection cL^jV : EndConnect 

. JLitLjuj\JI 3 JLuujVI sJLxc SocketJI o^> StreamJI adjiU />jd*^uuu3 :GetStream 

: TCPCIient Properties , .zJLa^JI ^1 :Lub 

Linger TimeJI q9>s>o 3I jujcsJ Set 3I get j>b3 : LingerState 
\) 093 JLni ol 5 111 A9_>szo $\ jujc%J Set3l get jc>b3 :NoDelay 

oIjls^juuL epoouuu SocketJI A9>szo 3I jujcsJ Set 3I get A>lj3 :ExdusiveAddressUse 

.\J ja\ Client PortJI 

/oej> vSjsld 3I jujcsJ Set 3I get j>b3 :ReceiveBufferSize $ SendBufferSize 

.TCP Client Object StreamJI ^3 Jl^LjljuULOs Jl BufferJI 

^LjoJI 0J3JI qSjsld 3I jujcsJ Set 3I get j>b3 : ReceiveTimeout $ SendTimeout 
JYL> _p>\)l vJ^LJI /J oji AJL> v_sx 9 Time Out v_sJaszj JLflj-JuuVI 3I JLuujJI AJbxsd 

c U- ij0 j 6jJ3 
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Properties.^ MethodsJI o-o Ac3 J oc% J o ,_sdc sS^ej TcpListener Class-2 

!v_sJL La5 


TcpListener tcp_Listener = new TcpListener(IPAddress.Any,5020); 
tcp_Listener. | 


AcceptSocket 


V AcceptTcpClient 

'S* BeginAcceptSocket 

V Begin AcceptTcpClient 
Si* EndAcceptSocket 

Si* End AcceptTcpClient 
S* Equals 

ExdusiveAddressUse 
S> GetHashCode 
^ GetType 
LocalEndpoint 
Si* Pending 
J3* Server 

^ Start v 


: TcpListener Methods U-> :\Jq! 

.ClientJI §jo JL^u\JI aJjcxi: J3jlsJ p \ ^LjljuUU^ :AcceptSocket 
pjj L^JI pSj jjpoJ qJb> ^3 djl Overloaded Method : Start 
Orf^ 0 P&J O3JU3 QoueeJI 3I j9jlkJI v_sv3 Ia>.i3^r3j Juoouuu v_scJI 6j^>V i 

.ijtcto jji QoueeJI 

3 TryJI />ljd*ijuj| julc FinallyJI v_s\S 1^-253 J-21AJ3 oju^uJI AJLxc v_9\JLrt\J />jc«jjjju3 : Stop 
.Exception csl 03J0 AJl> ou^nJI qJLox clpjj pjj l _ s oo CatchJI 

:TcpListener ^ss , :Lub 

.ajc«JI LocalEndpointJI />jc^uuuoJI PortJI ps^ IPJI &>>* cu> : LocalEndpoint 
v_scJl3 TCP Served I ^s3 :>3jl<joJI 3 J5 tjJI I gJctLjuuu L^J\L> ^^03 :Server 

la.^3 Listen 3 ReceiveJl3 SendtoJl3 AcceptJI Jjlo LuLu 
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: UDP Connectionless Protocol JL A^>bJI ClassesJI Lub 


Lo 3 UDP Datagram Protocol Connection A^jljuUU^ :UdpClient Class-1 


v_sJL LxS v_S^>3 /X^)l Cjdl IjdJ) v_S\ 53 Ig-SZjO JjoLd^ LqjLuJ 


UdpClient udp = new UdpClient () 

udp. 


Close 


V Connect 
DontFragment 
DropMulticastGroup 
EnableBroadcast 

V EndReceive 

V EndSend 

V Equals 

ExdusiveAddressUse 

GetHashCode 

V GetType 

V JoinMulticastGroup 
MulticastLoopback 

V Receive 

Send v 


■ LfcJ A^Ldl , dl^cajlq ^QjuuoJI A^l i >JOQ 

(jjo 3I ol^ claJI 3I /d :DropMulticastGroup 3 JoinMulticastGroup 

.Multicast GroupJI o-» oroLsJI 
.socketJI ^ BroadcastingJI Set3l Get A>b3 : EnableBroadcast 
.Mlticast LoopbackJI 3I qs^-d Set 3I Get jcd3 : MulticastLoopback 


IP Address MulticastingJI ^3 :MulticastOption Class-2 

/)JCti_juUU3 Multicast Group sS\J Drop 3 Join Jod Multicast Group ^ Jolsd List 

! Multicast JjLjujj JL_qj_ajj\J A9Lo\J Jlid v_sJL L &5 


: sdL Lo 53 UDP SocketJI 


C#: 

mcastSocket = new Socket(AddressFamily.InterNetwork,SocketType.Dgram, 
ProtocolType.Udp); 




VB.NET: 

mcastSocket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, 
ProtocolType.Udp) 


75 













3! GroupJI v_s\S qJL>il jujj sSjJI IPJI L^JI jj-uaJ pj AddrGSS List ^supuj p$su LjU 
:<_sJL Lcx^3 Bind ^3jlu>JI />ljct*juuL 035 LuuJIj l^-Lu^j q-xjjLQjj ol3Jtsdl Jjs-aj UserJI 


C#: 

IPAddress locallPAddr = IPAddress.Parse(Console.ReadLine()); 
mcastSocket.Bind(IPIocal); 

VB.NET: 

Dim locallPAddr As IPAddress = IPAddress.Parse(Console.ReadLine) 
mcastSocket.Bind(IPIocal) 


:v_sJL La5 ^jc^joJI ol3Jtsdl LgJ jLi^uuu3 Multicast OptionJI p$su LJU 

C#: 

MulticastOption mcastOption; 

mcastOption = new MulticastOption(locallPAddr); 

VB.NET: 

Dim mcastOption As MulticastOption 
mcastOption = New MulticastOption(locallPAddr) 

1-S3j_uJUO J3\JI oIjjjj03jU Aj\Li i3jLvoJI c>jui> -L>b CjjJsJI i_5\JLc. >*aJI v-O-yAi pj 0-°3 

v_93juj 0-Ld> LjJb> v_s^3 UDP 3I TCP 3I Socket i_sJLc 3! IPv6 3I IP (_yJLc ^jj^JI 
v_sobJI jjjj03jLJI v_s^ 3 Multicast Group (_jJI IP p^> ojujJ lo il IP ^jJLc jj^JI pj^ljujJ 

AsLdI jLjj>\JI i _ / Su&J3 Aj3 -ac A 9 LdI JujJ ^jj^JI £cp iJcsu 

MulticastOption Jl qJI ju^u DropMembership eUJI 3I AddMembership 

IunL Lxx 5 3 qjLiub L03 ^sjj^ Object 


C#: 

mcastSocket. SetSocketOption(SocketOption Level . IP, 
SocketOptionName.AddMembership, mcastOption); 

VB.NET: 

mcastSocket.SetSocketOption(SocketOptionLevel.IP, 
SocketOptionName.AddMembership, mcastOption) 


OuJ O3J1II Pjuu Igj /xSbrjJI \jSjsj v_S\Jl3 \jOj LajaJI />* 5 >l Luu I JlSLo>3 
CjjjlsJI ^uuljuj sjvJUI J-o*JI isvi (Network Layer Jl 3 Transport Layer JU 
Network Jl l $su> JjoIrJI jaJj Members Jl <usu v>c J^xro JiL»Juu 

Synchronous Sockets Jl gjo JjoIrJI Layer 

.Asynchronous Sockets JI3 
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Fadi Abdel-qader - Dot Net Networks & TCP/IP Programming 


Chapter 7 

Network Layer & Synchronous 
Sockets Programming 

- Introduction to Socket Programming 

- Synchronous Socket Programming 

- Synchronous Socket Classes & Members 
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JXi t>>JI cOUl /XjuUU 

: Network Laver & Synchronous Sockets Programming :7 

JI3 Network LayerJI AaJo <^0^ o-c jjS\ J 5 Lou o+v ^3-^ £>>JI l-us> 
jJI 3 ch 0 LgJUpu cjUL*_JI JLiijLjuj^ JLujjV L^ao J-olsjjJI />jj v_s\-JI Socket 
J^jjUI Luu 3 JLii^j>-u\U3 JLjujjMJ UDP 3 TCPJI _^oIjc^jLjujL LfljLuj Luo3 ( < -i5JjuuJI Stream 

.. Socket ProgrammingJI (>c cjaxu ^3^ c>>JI lj^> ^3 Lo^o 

Introduction to Socket Programming : 7.1 

>>l csJ! jL£j> u-° L^JJjs- o-° u-’LLjJI J-flj /O 6liJI v_s^oi Socket Jl ul i_93j^oJI 1 jjo 
lS3^%j o^> Name Space System.Net.Sockets <Jujsa aJjJI ^9 />>JL l^oljutou^ 
ciSL-jJjJI oLosjojj v_s\5 L^ljcti-juul /o v_svjJI3 ClassesJI qa /x3t«o ^ac ,_sJ-c Name Space 
gjo 3! UDPJI 3I TCPJI §jo JjolaJI qjo LaSuoj il Socket Class 3^3 Loaii c^asa; 1.93^3 
qJYb o* Socket Object MethodJI 03503 jOuLo J 5 ouu 0^3^! qx> >>l £3; tsl 

!>_sJj Lx5 oIjjjj 03 jU 

C#: 

Socket MySocket = new Socket(AddressFamily. , SocketType., ProtocolType.); 

VB.NET: 

Dim MySocket As Socket = New Socket(AddressFamily, SocketType, ProtocolType) 


JLJaojg ciszo JjoIsO v_93_uj OAJI3 IP AddreSSJI AjAxJ J3JI jOj03_jLJI i_svS joJj <Oo> 
v_sv 3 ^ Jl^jLjuulo^ JI3 ATM 3I NovelJI olSLtJuj v_s ^9 Jl^jLajlLO^ JI3 IPX L^Ju03 oIjLjsJI i JjO jmS 3 AC 
oIjLjsJI oao> /x^l 0^3 ■■■ bs>>^3 NetBIOS Address 3I ATM NetworksJI oLSLou 
v_9_>s2j3 olSL^juuJU Aobdl oLosjojjJI §jo />Jli J^Luiju qjoj3*ajuuu Lo 3^3 InterNetworkJI 
AoJcul v_JLcl3 033 -^ 3 ^ 5^10 />Lbu gjo iliaoJI 30*3 IPv 4 £^JI 3^ IP £3* c»l ,_sJLc 
^JLsjO JasJ 3 CUC cLaUujJI /OjuJ l-\J> UjUjJjJI JoLOjUUoJI v_S ^93 UL> 493 j^oJI Jj^AoJI 
Stream />jctouu i_93_juj JjS> i_st SocketJI £3; aja>j /o v_soLJI jOjo3jLJI i_s\3 TPv6JI 
LjI cap*- pjo^joJI oa^J StreamJI /Ja^ajujI /o to 6ilc3 _>>l cv_sujj 3I oLL_JI JLujjJ 
JLa\LJ />jijojuuuoJI J3S3J3JJJI £3; I>a>I 3 1 Stream £9 jJI qjo J-ajJ^JI aJooj aoasajuj 
I nternet Control Message ICMPJao o>>I 0J3S3J3JJ 3I TCP 3I UDP e^JI 3^ J39 
SocketJI cLiul Uio ju^j LjI 3I Internet Group Management Protocol IGMP 3I Protocol 
vjoL ^3^3 ^>^3 IPSecAuthenticationFleader jU>L IP Security Fleader oj>siJ 
<-93^sioJI QJ03 UDP 3I TCPJI jLjsJ v_93juj Loi3 1<U)I cLjjul Lqj>\J j3jo\JI Jjuo ^>jJj 

u-o ^_9_flj=oJI 4 J-<xC cl>>l i_s02j IA£)3 c I>3jo 3^) TCPJI J3S3JJJ ul 

j QjJJ 3 Lj-JJjJ '-^3^3-0-' 3^5 UDPJI J3S3JJJ Lol iASiO Lo ^jJI 

v_suC-IS\JI CJuJI AjJLo^c cl>>V l-A> 3^3 AJLuujjoJI oLLjJU /xJLjuJI J3^>3JI i jjo l _3flJxJI 
J3\JI J-^flJI vjvs Lo 3^13 Multicast Group oJI olc3jouto cLiols Broadcast 

. C1JLJI3 v_sOLJl3 
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TCP cLujJ^I Synchronous Socket ProqramminqJI joIjco-mjI 7.2 

: Connection 


La 5 J^>l>oJI v jjo TCP Socket ConnectionJI /Jaa^a-jujU JLzaj\JI AjJLx£ jjoj 

■ v_sJUI J^LuijJI v_5\S 

Server Client 


socketO 


socketO 

bind() 



listen() 



acceptO 


connectO 

recv() 


sendO 

$end() 


recvO 

closeO 


closeO 


: <_sJj Lo 5 SocketJI cLiuL serverJI 3 ClientJI ^3 AJLxsJl (juJ il 

C#: 

Socket MySocket = new Socket(AddressFamily.InterNetwork, SocketType.Stream, 
ProtocolType.Tcp); 

VB.NET: 

Dim MySocket As Socket = New Socket(AddressFamily.InterNetwork, 

SocketType.Stream, ProtocolType.Tcp) 

AAC JaiiS />Jc«jLjuuu3 Bind :>3jLjjoJI />Iaa*a_jujU v^JbJI _>j3j_iucxSJI gjo SocketJI \ouj joj 

: v_sJL lo>$3 J LjjjLjujVI I 

C#: 

IPEndPoint ip = new IPEndPoint(IPAddress.Any, 5020 ); 

MySocket.Bind(ip); 

VB.NET: 

Dim ip As IPEndPoint = New IPEndPoint(IPAddress.Any, 5020 ) 

MySocket. Bind(ip) 

ajlc aaa%j dLi5uoj3 listen a3jlu>JI />Iaa«j-jujU aaa%joJI PortJI ,_jJLc oju^uJI />L_aJI joj 

i_jJLc Aa9l3joJU JO^SU JOJ 1 - JOSj .Jl cj jjJOJ AJlSjO AJlC && 2J3 /Xjj-juJ 

: <_sJL I&53 accept :>3 jl«joJI />Ia L JLii\JI 

C#i 

MySocket.Listen(-l); 

MySocket. Accept(); 

VB.NET: 

MySocket.Listen(-l) 

MySocket.Accept 
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£_3-JI O - 0 ^S-2-^jO V_sv3 oULJI (IsvlSZJ 

C#1 

byte[] Received= new byte[1024]; 

MySocket.Receive(Received); 

VB.NET: 

Dim Received(1024) As Byte 
MySocket. Receive(Received) 

caa> (JLo5 5020)PortJI TCP £$JI o-o Connection cLiuU Lxxs L &3 

.. 1- ^Asdl v_sOl^j \) Listen L 0 J 3 Bind :> 3 jl«joJI />ljc«jLjujU SocketJU lp_Luj jojj 


Receive :> 3 AjoJI J\L> ojo oULJI J Ll&jLjvjJ I AP3 

: uJU lo ^3 Byte 


6jx> Socket JI v_qj_>s 2 j qjo ju\J SocketJI /Ja^ajujU TCP Client JLujj^JI gooU^j v-qjj^J 3 
oULJI JLujjI />j IPEndPoint -oa^JI Akoo PortJI ^3 ServerJI ol^ iLluuls lS>>I 
Jl^ljLajlLjljuJ cao- socketJI i_s\S /u Loj JLujj\)I < 3 _JUxc / 0 J 3 Send i 3 jooJI />Ia>ajujU 

: vjJj lo^g Stream Socket 

C#: 

String str = Console. ReadLine(); 

ASCIIEncoding asen = new ASCIIEncodingQ; 

byte[] msg = asen.GetBytes(str); 

Socket MySocket = new Socket(AddressFamily.InterNetwork, SocketType. Stream, 
ProtocolType.Tcp); 

IPEndPoint remote = new IPEndPoint(IPAddress.Parse("192. 168.1.101"), 5020); 
MySocket. Con nect( remote); 

MySocket.Send(msg); 

MySocket.Close(); 

VB.NET: 

Dim str As String = Console.ReadLine 

Dim asen As ASCIIEncoding = New ASCIIEncoding 

Dim msg As Byte() = asen.GetBytes(str) 

Dim MySocket As Socket = New Socket(AddressFamily.InterNetwork, 

SocketType.Stream, ProtocolType.Tcp) 

Dim remote As IPEndPoint = New IPEndPoint(IPAddress.Parse("192. 168.1.101"), 
5020) 

MySocket. Con nect(remote) 

MySocket.Send(msg) 

MySocket.Close 
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UDP cLuuu\) Synchronous Socket ProqramminqJI joIjco-mjI 7.3 

: Connectionless 


lo 5 J^>I>oJI qjo UDP Socket ConnectionJI />ljc«jLjujL; JL^u\JI aJjcxi: ^oj 

■ sjJUl J^LuijJI v_5\S 


UDP Server 


UDP Client 



cLjjuU served I 3 ClientJI i_s\3 cdLo^JI IjuJ il TCPJI v_s\S lo^ JLodl qJjcxc coLiix-i^ 

: v_sJj lo 5 SocketJI 

C#: 

Socket MySocket = new Socket(AddressFamily.InterNetwork, SocketType.Stream, 
ProtocolType.Udp); 


VB.NET: 

Dim MySocket As Socket = New Socket(AddressFamily.InterNetwork, 
SocketType.Stream, ProtocolType.Udp) 


JulC JaiiS />Jc«jLjuuu3 Bind i3jL<joJI v_sJbJI jj3jjjo 5JI gjo SocketJI Jcuj pj 

\ v_S\JL 1x5^3 J L_flj_juu\J I 

C#: 

IPEndPoint sender = new IPEndPoint(IPAddress.Any, 5020 ); 

MySocket. Bind(sender); 


VB.NET: 

Dim sender As IPEndPoint = New IPEndPoint(IPAddress.Any, 5020 ) 
MySocket. Bind(sender) 


End Point AxIjJI ReceiveFrom ^OAZ%jLjuUU oULJI ULlAJLjuU^3 

ByteJI A9c^uo gjo reference J 0,^3 AibLuJI ^3 pJ cLj Reference 

:>3jjjoJI J\l> 1 jjo String tjJI A93^3 joJI Jj3^j sJqj-juuu pj QJ03 ReceiveFrom ^3 jl<joJI l _sJI 

: v^JL Lx^3 ASCII Class o^> 6^3^! GetString 


C#: 

int recv; 

byte[] data = new byte[ 1024 ]; 

EndPoint Remote = (EndPoint) (sender); 

recv = newsock.ReceiveFrom(data, ref Remote); 

Console.WriteLine(Encoding.ASCII.GetString(data, 0 , recv)); 
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VB.NET: 


Dim recv As Integer 
Dim data(1024) As Byte 

Dim Remote As EndPoint = CType((sender), EndPoint) 
recv = newsock.ReceiveFrom(data, Remote) 

Console.WriteLine(Encoding.ASCII.GetString(data, 0, recv)) 


String j&j oliL_JI LpJ j>oj SendTo />ljd«j_jujl JLujj\)I v_s\S />jj$ 

£. 3^3 Length i^jL^oJI J\L> qjSjslo LaSLoj il aJLujjjoJI oUldl Byte Array ^jJI 
EndPoint ObjectJI qJ ^ 1^13 aJLujjjoJI aJLuu^J Broadcast Jjtxc ju>i o^> FlagsJI 

!v_sJL LaS3 

C#i 

string welcome = "Hello All"; 

data = Encoding.ASCII.GetBytes(welcome); 

newsock.SendTo(data, data.Length, SocketFlags. Broadcast, Remote); 

VB.NET: 

Dim welcome As String = "Hello All" 
data = Encoding.ASCII.GetBytes(welcome) 

newsock.SendTo(data, data.Length, SocketFlags.Broadcast, Remote) 

iJt S2J Li>JuJLSi; 3 I \) CjuAiJ Infinity While Loop ^9 il^VI \l& o^. 

.. lJ LjjjLjuj\J I 3 JLjuJj\J| oLJLcxC I'JjO 


:Svnchronous Socket Classes Members7.4 

.jJI oiL^uul IP Address : IPAddress Class -1 

:v_sJL loS qJ Aolsdl AAyd I 3 JLao5 IPEndPointJI 

C#: 

IPAddress newaddress = IPAddress.Parse("192.168.1.1"); 


VB.NET: 

Dim newaddress As IPAddress = IPAddress.Parse("192.168.1.1") 

: i^svJL Lo5 uIqjlsJI ol )L> AgjJ 1 uu )Lj>\JI , S-djq 

ciSu^iJI ^_ 5 \JLc- ^Ljo 0 I 3 AC ssi JjuuojJ ^oAz^AjuuU 3 Any 
AL-jAlJI i_sJ-C \J 1 oJI JjulOjJ A^jLjuUU^ Broadcast 

127.0.0.1 3-^3 loopback JJ i_ 93 j^oJI oI^a^zJI JjJuoaJ Loopback 

/>LLJI vjvs Network Interfase ^ 3^3 />ac aJL> />a>a ^3 None 

: Ifij0j3>lq ^QjuuoJI 1 uO AC^OA^O /xC-Vj L&5 

Jl^^LajULcjuU L £>3 tow Objects 0 +! A^^LajoJU />lc JSLAju ^ 3 dJI Ia£> JO JC^LajUU Equals 
1 ( jjdLiA*io LIS lil False 3 ^jj^LAuuo LIS lil True ^>^3 i jjjl 3 Ac ,j+j Aj^LojoJU 

Hash Code aa^ ^1 ol^iaJI £.L>jV GetHashCode 

ol^iaJI 0 ^ NetworkJU ^bJI c>dl &>jjs HostToNetworkOrder 

olsisJI CM HostJL u^bdl c>dl &>jj .3 NetworkToHostOrder 
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sjjj sSjJIg Host JU PortJl 3 oI^jlsJI ju-vjsJ cLojct^uul : IPEndPoint Class -1 

: v^JL loJ <J AoUl Aa^^J^ cu JLojJI 


C#: 

IPEndPoint end = new IPEndPoint(IPAddress.Parse("192.168.1.1"), 5020); 

VB.NET: 

Dim end As IPEndPoint = New IPEndPoint(IPAddress.Parse("192.168.1.1"), 5020) 

:<^L lx£ Socket ClassJI <^9 a^aj i_scJI , ,^>lcpJI Acqjo^q 

SocketJI ,_sJLc A9j^oJI QjgLJI sprjss AddressFamily 

SocketJI Qja odjiiJU 6_>£>LaJI oUL_JI />*=>£> Available 
\) fi\ Blocking ModeJI /)jd*i^uy socketJI olS lil A9j^oJ Set 3 ! Get Blocking 

/A Remote HostJI J^o SocketJI olS N As^oJ 6jjSj A^LJI oi& Connected 

SocketJI Jjolaij i3-JI (J^AujlJI />llflj A9j^oJ /jjd»ijuju 3 Handle 
SocketJI JO Jl^jLjuUU i_SjJI I QSjSjzJ ProtocolType 

Remote HostJI §jo sSjJI SocketJI o-c oLo^Iso RemoteEndPoint 

:LpjLolJb o uuuD JUaSg 

C#: 

using System; 
using System.Net; 
using System.Net.Sockets; 
class Socket_ Properties 
{ 

public static void Main() 

{ 

IPAddress ia = IPAddress.Parse("127. 0.0.1"); 

IPEndPoint ie = new IPEndPoint(ia, 8000); 

Socket fmo = new Socket(AddressFamily.InterNetwork, 

SocketType. Stream, ProtocolType.Tcp); 

Console.WriteLine("AddressFamily: {0}", 
fmo.AddressFamily); 

Console.WriteLine("SocketType: {0}", 
fmo.SocketType); 

Console.WriteLine("ProtocolType: {0}", 
fmo. ProtocolType); 

Console.WriteLine("Blocking: {0}", fmo.Blocking); 
fmo. Blocking = false; 

Console.WriteLine("new Blocking: {0}", fmo.Blocking); 

Console. WriteLine("Connected: {0}", fmo.Connected); 
fmo.Bind(ie); 

IPEndPoint iep = (IPEndPoint)fmo.LocalEndPoint; 

Console.WriteLine("Local EndPoint: {0}", 
iep.ToString()); 
fmo.Close(); 

}} 
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VB.NET: 

imports System 
imports System.Net 
imports System.Net.Sockets 

Public Shared Sub Main() 

Dim ia As IPAddress = IPAddress.Parse("127. 0.0.1") 

Dim ie As IPEndPoint = New IPEndPoint(ia, 8000) 

Dim fmo As Socket = New Socket(AddressFamily.InterNetwork, 
SocketType.Stream, ProtocolType.Tcp) 

Console. WriteLine("AddressFamily: {0}", fmo.AddressFamily) 
Console. WriteLine("SocketType: {0}", fmo.SocketType) 

Console. WriteLine("ProtocolType: {0}", fmo.ProtocolType) 
Console. WriteLine("Blocking: {0}", fmo.Blocking) 
fmo. Blocking = False 

Console.WriteLine("new Blocking: {0}", fmo.Blocking) 

Console. WriteLine("Connected: {0}", fmo.Connected) 
fmo.Bind(ie) 

Dim iep As IPEndPoint = CType(fmo.LocalEndPoint, IPEndPoint) 
Console. WriteLine("Local EndPoint: {0}", iep.ToString) 
fmo.CloseO 

End Sub 


:AJLJI oLooJL&oJI 


AddressFamily: InterNetwork 
SocketType: Stream 
ProtocolType: Tcp 
Blocking: True 
new Blocking: False 
Connected: False 
Local EndPoint: 127.0.0.1:8000 
Press any key to continue . . . 


£ CjuJ o$jJI <mj Synchronous Socket JI >» o+suS Uo IjlSL5>3 

05JLJI Asynchronous Socket csOUl J^xaJI us\s vJjlsju 

.CjuJ 
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Fadi Abdel-qader - Dot Net Networks & TCP/IP Programming 


Chapter 8 

Asynchronous Sockets 

- Asynchronous Socket Class and its members 

- Applied Asynchronous Socket in Dot Net 
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/XG>jJI jJjCOjJI CliJ I _/XjuUU 

: Asynchronous Sockets Programming :8 

JJLaju Asynchronous Socket Jl />Ijc*gujI o-c c>dl l_\d> ^9 cjaxg 
jjSiil JL^u\JI /)Ijc«j_ajjI ,_sJLc ccJjosJI dAoJI jjjo Ac3joc%jo IqjLuj cq LJjc%j Lxc 

... oKj-AuJI oLjSiOjJ v_S ^9 l JjoljjjO 
QjOjJI v_S ^9 1 _jj£XS2jI tjJI gLtSi) v_svjjI oLoejOjjJI v_S \9 l-X^r _/X£jO i JjoljAoJI Jl^uJI ul v_ 93 _>S 2 joJI i JjO 

AjjLsJI AjJLo^JI clgjjl Jlsl< ^jJI _>>l jjo\J JL^u\JI Qjyuudj \l Cac> 

ljul JUiOjU W \J j3jo\J| O-id) JjjO l_jJLiaju v_svjjI oLJjJXSzJI v_S ^9 I-)l> _/X£jO c COIAitjLjuJI3 

Slow Connection />jc*guoJ oULJU AJL^uuuoJI Ag_=JI oulS lil AJL> ^3 cu>Ijc*gujI 
ulS lil AJb> <^3 3I JjLaijuuuoJI gjo J-juujjoJI Jcu>J DialupJI ,_5 \JLc- ciSui-juuJI iloAcl^ 

ojoIjjoJI vsJLjuj^I 8^°y cag> ServerJI Jl^jLjuUU i j^JcGGuuuoJI i jjo 6 jjuS Ac3joc%jo JULd> 
JjJjjlajuu Served I 03S AJL> i_s\9 JLujjJI cqJbxc d>>! 0- 0 I ,_sJLc v j^jgg_juuuoJI cq-aj 

_/X£jO jjuLSZj il qjoIjjuoJI jj^JI Jl^uJI /JjdfcjGujL Q^Cuj AJbJI 6 Ad) 1^93 < >>l jlgJ> O- 0 CjLiLj 

ujjLflj />IjlsajujL< 3 ThreadJI ujodj />l#-o 6 j&j />L-qJI goobj-JI v jjo IgjI lil AJb> ^_sx9 Ia> 
iAC Ji>-3j cijl 3! Ljjuuu cv_sJqj JL^u\JI oLS lil AJl> vavs [suLjj Lxx 5 3 1 1 ConnectionJI 

.. Served I ^jjJlSL) O^jO Jl^jLajUU JlZ^jLajJUO 

: Asynchronous Socket Class and its members 

Socket Jl o- 0 -^ 5 6^3 j>3joJI methodsJI Ac^oc-txq i jjoljAoJI j+c. Jl^uJI o_q 03JJI _/xcjj 
G ui 03JI o>vo A93 System.Net.Socket NamespacesJI 0-0 /gj GGJI3 Class 

Method a>3j Begin Method JJJ3 ^^IaJI />^J qJ.q BeginJI :>3 j>3j uju^aoJI ol& 
ojo Begin MethodJI cL^ol jac callback result £b>jV /jjggguoJ u?aJI 3 l^J aLUlo End 

!<_sJb Icx^ v_s^d>3 JlAuaJI 


Socket MySocket = new Socket(AddressFamily 

HySocket.b 

j [^P AddressFamily a 

j^ 1 Available 


BeginAccept 


^ BeginConnect 

V BeginDisconnect 

V BeginReceive 

V BeginReceiveFrom 

V BeginReceiveMessageFrom 

V BeginSend 

V BeginSendFile 
y BeginSendTo 
y Bind 

Blocking v 


Object Jl ,_sJI oiL-^uls Client Requesdl J3AJ BeginAccept -1 

ojo iAc JLaajujI qjs ServerJI Aib^kJI oAd /xIjcg-juj^ AsyncCallback 

AjjLsJI aJLxsJI qjo clpjjJI jUdtiJ A>bJI 03JU3 OL93JI ijjuLflj v_sx9 Clients ReguestsJI 
v_sJy Ijcx^ /)Jg*Ajuuu 3 AsyncCallback DelegateJI ysljGtGuuU ^31^1 cLcagujI 6>o J 5 ^3 /a 

!v_sJL Lxx5 
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C#i 

m_mainSocket = new Socket(AddressFamily.InterNetwork, 

SocketT ype. Strea m, ProtocolT ype.T cp); 

IPEndPoint ipLocal = new IPEndPoint (IPAddress.Any, 5020); 

m_mainSocket.Bind (ipLocal); 
m_mainSocket. Listen (10); 

m_mainSocket.BeginAccept (new AsyncCallback (Client_request_method), null); 

VB.NET: 

m_mainSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, 
ProtocolType.Tcp) 

Dim ipLocal As IPEndPoint = New IPEndPoint(IPAddress.Any, 5020) 

m_mainSocket.Bind(ipLocal) 

m_mainSocket.Listen(10) 

m_mainSocket.BeginAccept(New AsyncCallback(Client_request_method), Nothing) 

Ll £>3 ^LuJI o x Callback Reference ^3 Client RequestJI <=isLz>j joj+juj 

Client Accepted ObjectJI cipjis Client RequestJI method cLiol ^ ju\) 

: EndAccept ^sJlvJI />Ia Li 

C#: 

public void Client_request_method(IAsyncResult ar) 

{ 

Socket listener = (Socket)ar.AsyncState; 

Myclient = listener.EndAccept(ar); 

Myclient.Send(/* data to be send*/ ); 

listener.BeginAccept(new AsyncCallback(Client_request_method), listener); 
Console.WriteLine("Socket connected to {0}", client.RemoteEndPoint.ToStringO); 

} 

VB.NET: 

Dim listener As Socket = CType(ar.AsyncState, Socket) 

Myclient = listener. EndAccept(ar) 

Myclient.Send 

listener.BeginAccept(New AsyncCallback(Client_request_method), listener) 
Console. WriteLine("Socket connected to {0}", client.RemoteEndPoint.ToString) 

LoJ JLSL^ol qjlc j>U BeqinAccept MethodJI Dot Net 2005 

State Object 3 AsyncCallBack Delegate J 0 U 3 2005 3 2003 03 JI ^3 J 3 JI 

Lo ^3 Socket Jl ^3 Request Jl AJL> oto 3 lsio £_L 
MySocket.BeginAccept( AsyncCallback , object state) 


c-UoJLijuuuoJ I oULJI cus JLSuoj 2005 03 JJI ^3 v_sOLiJI J^LuuJI 

MySocket.BeginAccept(int Data_ Receive_Size , AsyncCallback , object state) 

Accepted Socket Jl <^3 pSJy vpp> 2005 03 -d I oJtdl JSLpJI 

MySocket.BeginAccept(Socket accept_Socket ,int Data_ Receive_Size , 
AsyncCallback , object state) 
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fiSjS SocketJI ,_yJLc Asynchronous Connection LvJ JlZ^LjLjuUU^ BeginConnect -2 
State ObjectJIs Asynchronous CallbackJl 3 IPEndPointJI l$J ju^uy PortJI 

Lxj^3 

MySocket.BeginConnect(EndPoint IP,Syncallback Result, object state) 

:Jlio5 v_sJL lo^ />Ait^juuu3 

C#: 

Socket MySocket = new Socket (AddressFamily.InterNetwork, SocketType.Stream, 
ProtocolType.Tcp); 

IPEndPoint ipend = new IPEndPoint(IPAddress.Parse("192. 168.1.101"), 5020); 
MySocket.BeginConnect(ipend, new AsyncCallback(Connected), MySocket); 


VB.NET: 

Dim MySocket As Socket = New Socket(AddressFamily.InterNetwork, 

SocketType.Stream, ProtocolType.Tcp) 

Dim ipend As IPEndPoint = New IPEndPoint(IPAddress.Parse("192. 168.1.101"), 
5020) 


:v_?JL IxxS CallBack SocketJI />a Connected MethodJI 

C#: 

public static void Connected(IAsyncResult iar) 

{ 

Socket sock = (Socket)iar.AsyncState; 
try 
{ 

sock.EndConnect(iar); 

} 

catch (SocketException) 

{ 

Console.WriteLine("Unable to connect to host"); 

}} 

VB.NET: 

Public Shared Sub Connected(ByVal iar As IAsyncResult) 

Dim sock As Socket = CType(iar.AsyncState, Socket) 

Try 

sock. EndConnect(iar) 

Catch generatedExceptionVariableO As SocketException 
Console. WriteLine("Unable to connect to host") 

End Try 
End Sub 
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Byte Array L^uj^s ClientJI o-o oULj JUa^V 3 Begin Receive -3 

:v_sJL LxxS LgJ Aolsdl JI3 


MySocket.BeginReceive(Byte[] buffer, int offset, SocketFlags,AsyncCallback, object 
sate) 


iJLuO^ v_sJL LcxS />Aitijuuu3 

C#: 

byte[] data = new byte[1024]; 

MySocket.BeginReceive(data, 0, data.Length, SocketFlags.None, new 
AsyncCallback(ReceivedData), MySocket); 

void ReceivedData(IAsyncResult iar) 

{ 

Socket remote = (Socket)iar.AsyncState; 
int recv = remote.EndReceive(iar); 

string receivedData = Encoding.ASCII.GetString(data, 0, recv); 
Console.WriteLine(receivedData); 

} 


VB.NET: 

Dim data(1024) As Byte 

MySocket.BeginReceive(data, 0, data.Length, SocketFlags.None, New 
AsyncCallback(ReceivedData), MySocket) 

Sub Received Data(ByVal iar As IAsyncResult) 

Dim remote As Socket = CType(iar.AsyncState, Socket) 

Dim recv As Integer = remote.EndReceive(iar) 

Dim receivedData As String = Encoding.ASCII.GetString(data, 0, recv) 
Console. WriteLine(receivedData) 

End Sub 


/>|jctijujL; i jjo oULJI BeginReceiveFrom i^jLyoJI />jd«jLjuuu La5 

. IPEndPoint Refrance Object ^LuJI >JI ^1 UDPJI 

Asynchronous Jl ^ J^juuuoJI vj^LJI ^1 oLL. JL^V BeginSend -4 

:v_sOL La5 l^J Aolsdl Socket 

MySocket.BeginSend (Byte[] buffer, int offset, SocketFlags,AsyncCallback, object 
sate) 


C#: 

private static void SendData(IAsyncResult iar) 

{ 

Socket server = (Socket)iar.AsyncState; 
int sent = server.EndSend(iar); 


;JLua5 <_sJL La5 jo Ait jljuUU^ 


} 

byte[] data = Encoding.ASCII.GetBytes("Hello Word"); 
MySocket.BeginSend(data, 0, data.Length, SocketFlags.None, 
new AsyncCallback(SendData), MySocket); 
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VB.NET: 

Private Shared Sub SendData(ByVal iar As IAsyncResult) 

Dim server As Socket = CType(iar.AsyncState, Socket) 

Dim sent As Integer = server.EndSend(iar) 

End Sub 

Dim data As Byte() = Encoding.ASCII.GetBytes("Hello Word") 
MySocket.BeginSend(data, 0, data.Length, SocketFlags.None, AddressOf 
SendData, MySocket) 

/>|jc*jLjujLr Remote Host ^jJI oULJI JLuujJ BeginSendto :> 30 joJI 1&5 

. IPEndPoint Refrance Object ^LuJI >JI ^jJI i_9l^u UDPJI 


2005 <mJ 03JJI ojujlsJI ^^JuuoJI <jjo cic.3 jocco pj lo*£ -5 

3 O-Lo JLuJjJ BeginSendFile 3 JLiAJI clpjV BegonDiconnect 

oULJI ^JJO iJiC />_X ^LjljuUU 00JI3 BeginReceiveMessageFromJI 

.. BuferJI v_s\S olSLo <_s\S 

s^>JI BeginSendFileJI j>b 

MySocket. BeginSendFile(string filename, AsyncCallback Asyn, object state) 


:oJUI s^>JI BeginReceiveMessageFromJI 

MySocket.BeginReceiveMessageFrom(byte Buffer ,int offset, int size,SocketFlags 
sf,ref EndPoint,AsyncCallback ascb, object state) 


i^sJLII ^Jl BegonDiconnectJIs 

MySocket.BeginDisconnect(bool reuseSocket, AsyncCallback ascb, object state) 
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: v-juu oqjJI Asynchronous SocketJI oUuJaJ :UU 

v_s^9 Socket ObjectJI cLajuL Iaj ,Jj>IjjoJI qjo Ac3joa%jou qjoIjao >*aJI JL^u\JI qjJLo^c _>oj 
,jJLc Asynchronous Connection IaJ BeginConnectJI />jj dU:> asli Server SideJI 
Asynchronous Callback MethodJ^ IPEndPoint Object :>L^J />aj SocketJI 
v_sJJ jjjoJ dUi> a zj$ : SocketJU JLaj\JI AJLxc AJbdl ol& ^9 Iajs l*J State ObjectJIg 
Acknowledgement J.^jj.9 sJkJI Jsjd />aj Cu> Client RequestJI BeginAcceptJI 
a sli ClientJI §Joajuuu 3 JLujjYU caJI AJISL0I3 AjuuJLsJI J3Jtflj IgjS cuJUzJ ClientJI ,_jJI 
ServerJI J+QA_«jy3 BeginSend ^s^aoJI /Ja^^a^Ii JLujjVb oJI AjuuJbJI ^>JLc Aasl^oJI 
AJLxc JdJ 0L9 LajLuu lod 5 BeginReceive :>3 AjoJI />Ia^uuL ClientJI qx> AJLuu^JI 
gjjoUjJI v_s^9 ThreadJI ujuloj l _?J^ i_s_>>l AJLxc cljj>\) JaszaujYU End :>3 jAjoJI L^JLLqj Begin 

.^joljAxJI JlAiJI qS. i jjoljAo jj^JI JIauJI Jjjo to 3^3 


Create Socket 





War 

ting 








war 



'-4 initialize Connection Request: BegnConnect 


-I Conned Callback^ 

, Initialize Sending Request: BeginSend 


*-- ScndCaiibackO 

i- - Initialize Receiving Request BeginReceive 
Waiting and Furthei Processing | 

►-ReceivcCaioacko 



Socket 


aoaszj Client/Server Chatting gcob^j cLajuL o\)I /> 9 su i_93_juj AqjLuuJI /xjuJiIcjoJI ,_sJ-c cL-13 

. oULJI JLiiAjuj^ JLuujJ Asynchronous SocketJI 

:^JUI , [S-iullII !_s^ lod aia> pqi-iijLijO cLajuL aS cAdJq 


Forml.cs [Design] 



:<JUI NamespacesJI 
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C#i 

using System.Net; 
using System.Net.Sockets; 
using System.Text; 

VB.NET: 

Imports System.Net 
Imports System.Net.Sockets 
Imports System.Text 


vjujIoJI /x9(Main ClassJI yjujsJ xsu tSl) Global DeclarationJI 

:euJUI 

C#: 

public class Forml : System.Windows.Forms.Form 

{ 

Socket server = new Socket(AddressFamily.InterNetwork,SocketType.Stream, 
ProtocolType.Tcp); 

IPEndPoint iep = new IPEndPoint(IPAddress.Any, 5020); 
private byte[] data = new byte[1024]; 
private int size = 1024; 


VB.NET: 

Public Class Forml Inherits System.Windows.Forms.Form 

Private server As Socket = New Socket(AddressFamily.InterNetwork, 

SocketType.Stream, ProtocolType.Tcp) 

Private iep As IPEndPoint = New IPEndPoint(IPAddress.Any, 5020) 

Private data As Byte() = New Byte(1024) {} 

Private size As Integer = 1024 

isdc xqj&j Connection >»*_**; ^Ul AsLoU p3 Form LoadJI isvi 
^plJLajuujU JLaJDI cuLotC kjujsu pj 5020 PortJI Jjoa ;5 TCPJI 

: BeginAcceptJI 

C#: 

private void Forml_Load(object sender, System.EventArgs e) 

{ 

server = new Socket(AddressFamily.InterNetwork,SocketType.Stream, 
ProtocolType.Tcp); 

IPEndPoint iep = new IPEndPoint(IPAddress.Any, 5020); 
server. Bind(iep); 
server. Listen(5); 

server. BeginAccept(new AsyncCallback(AcceptConn), server); 

} 
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VB.NET: 

Private Sub Forml_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
server = New Socket(AddressFamily.InterNetwork, SocketType.Stream, 
ProtocolType.Tcp) 

Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Any, 5020) 
server. Bind(iep) 
server. Listen(5) 

server. BeginAccept(New AsyncCallback(AcceptConn), server) 

End Sub 

Accepted RequestJI cl&Jj «us sSJJI 3 Accept Callback Method eLiuJ pj 

csJJ Acknowledgement JL*oJ JUj xsu$ EndAccept MethodJI />Ijls^uuU 
BeginSend MethodJI .plA^ju^U vJLbJI 1^9 o>cu ClientJI 


C#: 

void AcceptConn(IAsyncResult iar) 

{ 

Socket oldserver = (Socket)iar.AsyncState; 

Socket client = oldserver.EndAccept(iar); 

conStatus.Text = "Connected to: " + client.RemoteEndPoint.ToString(); 

string stringData = "Welcome to my server"; 

byte[] messagel = Encoding.ASCII.GetBytes(stringData); 

client.BeginSend(messagel, 0, messagel.Length, SocketFlags.None, new 

AsyncCaIlback(SendData), client); 

} 

VB.NET: 

Sub AcceptConn(ByVal iar As IAsyncResult) 

Dim oldserver As Socket = CType(iar.AsyncState, Socket) 

Dim client As Socket = oldserver.EndAccept(iar) 

conStatus.Text = "Connected to: " + client.RemoteEndPoint.ToString 

Dim stringData As String = "Welcome to my server" 

Dim messagel As Byte() = Encoding.ASCII.GetBytes(stringData) 
client.BeginSend(messagel, 0, messagel.Length, SocketFlags.None, New 
AsyncCallback(SendData), client) 

End Sub 


10^5 BeginSendJI clgJV Send Callback method cLowl pj 

C#: 

void SendData(IAsyncResult iar) 

{ 

Socket client = (Socket)iar.AsyncState; 
int sent = client.EndSend(iar); 

client.BeginReceive(data, 0, size, SocketFlags.None, new 
AsyncCallback(ReceiveData), client); 

} 
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VB.NET: 

Sub SendData(ByVal iar As IAsyncResult) 

Dim client As Socket = CType(iar.AsyncState, Socket) 
Dim sent As Integer = client.EndSend(iar) 
client.BeginReceive(data, 0, size, SocketFlags.None, New 
AsyncCallback(ReceiveData), client) 

End Sub 


ixsJj lo £$ BeginReceiveJI clgjJ Receive Callback method cLouj jxi 


C#: 

void ReceiveData(IAsyncResult iar) 

{ 

Socket client = (Socket)iar.AsyncState; 
int recv = client.EndReceive(iar); 
if (recv == 0) 

{ 

client.CloseO; 

conStatus.Text = "Waiting for client..."; 

server.BeginAccept(new AsyncCallback(AcceptConn), server); 

return; 

} 

string receivedData = Encoding.ASCII.GetString(data, 0, recv); 
results. Items .Add (received Data); 

byte[] message2 = Encoding.ASCII.GetBytes(receivedData); 

client.BeginSend(message2, 0, message2.Length, SocketFlags.None, new 

AsyncCaIlback(SendData), client); 


VB.NET: 

Sub ReceiveData(ByVal iar As IAsyncResult) 

Dim client As Socket = CType(iar.AsyncState, Socket) 

Dim recv As Integer = client.EndReceive(iar) 

If recv = 0 Then 
client.CloseO 

conStatus.Text = "Waiting for client..." 

server. BeginAccept(New AsyncCallback(AcceptConn), server) 

Return 
End If 

Dim receivedData As String = Encoding.ASCII.GetString(data, 0, recv) 
results. Items.Add(receivedData) 

Dim message2 As Byte() = Encoding.ASCII.GetBytes(receivedData) 
client.BeginSend(message2, 0, message2.Length, SocketFlags.None, New 
AsyncCallback(SendData), client) 

End Sub 
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ClientJI cLujJU 01)1$ ServerJI guoUjj ^jjo clgjJDI j »J jlS L £>3 

!i5vJLJI JiLmuJI ij\3 IftS JuJL> £3 < j_mJU0 cLiwU /)j cJuJU^ 



Forml.cs [Design] 


:<JUI NamespacesJI /iJc^uuu ^3^ 

C#: 

using System.Net; 
using System.Net.Sockets; 
using System.Text; 


VB.NET: 

imports System.Net 
imports System.Net.Sockets 
imports System.Text 


vjujIbJI osLaU ,p3(Main ClassJI yjujsu xsu uSl) Global DeclarationJI «_svs 

:euJUI 

C#: 

public class Forml : System.Windows.Forms.Form 

{ 

private Socket client; 

private byte[] data = new byte[1024]; 

private int size = 1024; 


ivsJUl :>3^JI coUSu p3 Connect Button JI 


C#: 

conStatus.Text = "Connecting..."; 

Socket newsock = new Socket(AddressFamily.InterNetwork, 

SocketType.Stream, ProtocolType.Tcp); 

IPEndPoint iep = new IPEndPoint(IPAddress.Parse(textBoxl.Text), 5020); 
newsock.BeginConnect(iep, new AsyncCallback(Connected), newsock); 


VB.NET: 

Private client As Socket 

Private data As Byte() = New Byte(1024) {} 

Private size As Integer = 1024 
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conStatus.Text = "Connecting..." 

Dim newsock As Socket = New Socket(AddressFamily.InterNetwork, 

SocketType.Stream, ProtocolType.Tcp) 

Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Parse(textBoxl.Text), 5020) 
newsock.BeginConnect(iep, New AsyncCallback(Connected), newsock) 

:cS\JL> laS Callback Connect method cUujU j >3 ja J 


C#: 

void Connected(IAsyncResult iar) 

{ 

client = (Socket)iar.AsyncState; 
try 
{ 

client. EndConnect(iar); 

conStatus.Text = "Connected to: " + client.RemoteEndPoint.ToString(); 
client.BeginReceive(data, 0, size, SocketFlags.None, new 
AsyncCallback(ReceiveData), client); 

} 

catch (SocketException) 

{ 

conStatus.Text = "Error connecting"; 

} 

} 


VB.NET: 

Sub Connected(ByVal iar As IAsyncResult) 
client = CType(iar.AsyncState, Socket) 

Try 

client. EndConnect(iar) 

conStatus.Text = "Connected to: " + client.RemoteEndPoint.ToString 
client.BeginReceive(data, 0, size, SocketFlags.None, New 
AsyncCallback(ReceiveData), client) 

Catch generatedExceptionVariableO As SocketException 
conStatus.Text = "Error connecting" 

End Try 
End Sub 


:i 5 \Jb BeginReceiveJI cl &>)! Receive Callback method eLiuJ 


C#: 

void ReceiveData(IAsyncResult iar) 

{ 

Socket remote = (Socket)iar.AsyncState; 

int recv = remote. EndReceive(iar); 

string stringData = Encoding.ASCII.GetString(data, 0, recv); 

resu Its. Items. Add (stri ng Data); 

} 
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VB.NET: 

Sub ReceiveData(ByVal iar As IAsyncResult) 

Dim remote As Socket = CType(iar.AsyncState, Socket) 

Dim recv As Integer = remote.EndReceive(iar) 

Dim stringData As String = Encoding.ASCII.GetString(data, 0, recv) 
results. Items.Add(stringData) 

End Sub 


: Send ButtonJI ^sJUJI :>$UI < 9 Loj j »J 


C#: 

try 

{ 

byte[] message = Encoding.ASCII.GetBytes(newText.Text); 
newText.Clear(); 

client.BeginSend(message, 0, message.Length, SocketFlags.None, new 

AsyncCaIlback(SendData), client); 

newText.Focus(); 

} 

catch(Exception ex){MessageBox.Show(ex.Message);} 


VB.NET: 

Try 

Dim message As Byte() = Encoding.ASCII.GetBytes(newText.Text) 
newText. Clear 

client.BeginSend(message, 0, message.Length, SocketFlags.None, New 
AsyncCallback(SendData), client) 
newText. Focus 
Catch ex As Exception 
Msgbox(ex. Message) 

End Try 


:*sJj BeginSendJI cLej}J Send Callback method cLojuI 


C#: 

void SendData(IAsyncResult iar) 

{ 

try 

{ 

Socket remote = (Socket)iar.AsyncState; 
int sent = remote.EndSend(iar); 
remote.BeginReceive(data, 0, size, SocketFlags.None, new 
AsyncCallback(ReceiveData), remote); 

} 

catch(Exception ex){MessageBox.Show(ex.Message);} 

} 
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VB.NET: 

Sub SendData(ByVal iar As IAsyncResult) 

Try 

Dim remote As Socket = CType(iar.AsyncState, Socket) 
Dim sent As Integer = remote.EndSend(iar) 
remote.BeginReceive(data, 0, size, SocketFlags.None, New 
AsyncCallback(ReceiveData), remote) 

Catch ex As Exception 
Msgbox(ex. Message) 

End Try 
End Sub 


:ssJj lo £$ BeginReceiveJI Receive Callback method cLouj jxi 


C#: 

void ReceiveData(IAsyncResult iar) 

{ 

try 

{ 

Socket remote = (Socket)iar.AsyncState; 

int recv = remote. EndReceive(iar); 

string stringData = Encoding.ASCII.GetString(data, 0, recv); 

results. Items. Add (string Data); 

} 

catch(Exception ex){MessageBox.Show(ex.Message);} 


VB.NET: 

Sub ReceiveData(ByVal iar As IAsyncResult) 

Try 

Dim remote As Socket = CType(iar.AsyncState, Socket) 

Dim recv As Integer = remote. EndReceive(iar) 

Dim stringData As String = Encoding.ASCII.GetString(data, 0, recv) 
results. Items.Add(stringData) 

Catch ex As Exception 
Msgbox(ex. Message) 

End Try 
End Sub 


Cjul> ServerJI £uoU>> <>c l>*iS vjjJL^u V ClientJI guoUjj uld Lb^XI Lo^3 
ClientJI Lot Begin Accept MethodJl3 Socket ConnectionJI ServerJI es \3 
ftj3 BeginConnect MethodJI 3 Socket ConnectionJI 
... ClientJI Server [q-ujju JLajuujJI3 
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Fadi Abdel-qader - Dot Net Networks & TCP/IP Programming 


Chapter 9 

Advanced Multicasting 
Systems 


- Architecture of Multicast Sockets 

- Using Multicast Sockets with .NET 

- Multicast Conferencing Systems: 

1. Full/Half Duplex Multicast Video Conferencing 
System. 

2. Full/Half Duplex Multicast Desktop Conferencing 
System. 

3. Full/Half Duplex Multicast Text Conferencing 
System 
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Jl I * .UI fiujJJ 

: Advanced Multicasting Systems :9 

Lu 3 Broadcasting Jl Multicasting Jl IojLuj LoJ 

jJiSI JJLuuu L^JlC ds$-uj J^aJI OJuii v_svS 3 OjJ O 3 JJI v_svS I 32 JO JjoIszJI cuoj^ 

oL^tojj c u^jL >3 o tS^uJI oLptxijj v_s^9 6 jjj 5JI JUi 3 

...Conferencing Jl 

: Architecture of Multicast Sockets : ^Jgi 

Class DJI />ljci^juuL 3 UDPJI J 3 S 3 JJJ j+c MulticastingJI §jo J 0 I 2 JI a^ qJ v-^sdl 0-0 
IGMP - Internet Group Jl JsS&jj />Ijc*^uuL oIc 3 jo^oJI 6 >b| qJLxc a^s Subnet Mask 
ojo Lo 53 Internet Protocol ModelJI =>> s^> SSJJI 3 Management Protocol 
/XjJLuuJI QjO ^_9^ij5tjJI 0 UL 0 X tjJ-C sS^LSy IGMPJI J 3 S 3 JJJ uls ^JUI JSL^uJI 
L^jLaJI il qjjLjL>l <_s ^3 cJLujjJ <_sJSJI oULjJI /^>l> JLujJ ap oliLJJ 

v_sv-bl>i 9 JI j^xsJI q_iS sSjJl 3 I IL Time to LiveJI i_yJLc LaJ 3 < G ^ 5 a^>N 
£_L>j! 3 I 1 4 x 30^*10 i jjo clsJI 1 clC 3 joc%jo l _yJI p^> ) 4jJ.i\)l qJbxsdl £ 3*3 <4JLujj JSJ 
ap qx^jo^ajoJI 0 I 3 JLC Ia>I 3 (Membership Query 4 x 3 Jtx>joJI olo 3 iao 

. Class D JJ ^jlxaJI RangeJI o^> 




8-bit Type 

Max Response Time 16 - bit Checksum 


32-bit Group Address 




239.255.255.255 t _ s JI 224.0.0.0 o-° MulticastingJI un 9 RangeJI 
(jjjLujI i_jJLc 3 I Dynamic 3 I Static i_S 3 Ju JSLuuu I 0 I 9 J^Jo 4 J\Lij ojujc%j gJojLjuuu 3 
iJLiuoS v_sJL LkS ol 2 Jj 3 iJI 0 Aii> JlZ^ijLjuUU _/D Lc j 5 L*iu 3 Scope-RelativeJI 
l _yJI 6 _>jjjoJ AP J JaiL9 qJLsjoJI oISL-juuJI v_s\3 />Jl>Ajuuu 3 224.0.0.1 
jL^jLjuuuiS Routed I v»s^jj>l olSJjuj i ( J I ^j^jjouJI LoJ IJ Co I RouterJI v-S^j>I 
... (_s_>j>\JI olSJjuuJI v_s ^9 SubnetJI ujuajj /Jjcti-juul Joj-xiu 3224 . 0 . 0.2 «iO T^uJ I 

:,_sJLdl MJI ^kul Multicasting JJ QSjSZxyJ^ 

http://www.iana.org/assiqnments/multicast-addresses 

Unicast TunnelJI /Jjcs^ujU Backbone TunnelsJI Multicast PacketsJI Jju .aj 
B ackbone Jl j+c >>l ,jJI Router o-o 3 RouterJI ,jJI ql^iJI 0-0 l^JLuuJ av 
ql^JI BandwidthJI 0-0 ^aSJI .J 3 J to 3^3 UnicastJI vsi^t />ljctijujlj Tunnel 
UnicastJI />Ijl 5 «j_«jjL; 6 j^j>JI l _yJLc 135 ^^ 3 ^ 3 ^ /> 3 QJ 3 RouterJI tjJI 6 a>I 3 cusuuuu J-juj>j 
UDP Jl />ljii*j_jujl ,_sJ^ J-ol^ JSJuuu A JoJisv Qjl 3 ji MulticaStJI <^s3 6 Jl«^> 3 JI dJLuuuoJI 

.Connectionless Protocol 

Peer to PeerJI oLSLhoj 0^3 oll^iJI ^ £.l 3 il qj\ti ^ MulticastingJI ^Iax^ujI LaSuoj 3 
ts^\s 3 ^> sSjJI GroupJI ljJI 3 o^> J-^ ». 9 JjiAjuuu JSJI 3 Server jl^J ^ 3>3 J 

/> 3 flj 3 ServerJI ,_sJI 6 a>I 3 4JLujj JLujjI ap Server Based Network ^bJI 
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RouterJI JU> q* />juS cJLJI £.^JI Lot < Al^iJI ^3 6 >^>\Jl Aau ^^JLc ServerJI 

clc.3jcxp!loJI i_sJI ClientJI />ltx*ajl as zj />jj JLujjJI cuLo^c ols v_sJUI JJJuuJI q^xju lo^3 i 
/>$su RouterJI Aa^ aJLuu; ClientJI IP MulticastJI JULoj ^scJI 
.Routing TableJI Lojct^juuuo Ac^AAtoJI v_s\S 6 j$s >\Jl t_sJLc- RouterJI 



ojo Multicasting v_*s JLuujJI AA BroadcastingJI />Ijc*^uuU JLuujJI v_svs Jbdl olS I&S3 
03SJ caja> i BroadcastJI ^3 lo^ JJJI ^jJI ujjuJs Ax3joa%jo i_sUI aaa%jo jlgs> 
IP MulticastingJI l _9S3 IojLuj lo 5 />jj$ u&\s> Group 6j^>\JI qjo Ac3joa%jo 

0^3 Multicasting JJ JLSLjojI 6 ac as>^.b IP MulticastJI ^jjJu *kc.$x>cxx> J 5 JULoj o^a> 
one to clc-3joc%jo v jjo jj£\ ,_sJI JLujjJI 9 one to Group Ac3joa%jo l _sJI JLujjJI L^_JLc 

: Multi Group 

:One to Group , Jl jc>lq,JL ujAJI - 1 

/>jjs Receiver UsersJI qJJLoj ^saJI IP MulticastingJI ^jjJu Sender UserJI JULou <^3 
Access PointJI «_sJl Unicast J o^> cULad &u*s> GroupJI J>b qjo JLujjJI 
v_s^9 to^3 BroadcastJI v->3JLujL a_c3joa%joJI ^s 3 cLocJI Asl^ ,_sJLc L ^suj^jj />$su caja> 

I^sJUI JSLAJI 
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By FADI Atxtel-Qader 



Wireless 

Network 


Full Duplex Multicast System for one Group 


:One to Multi-Groups Actual.vo I, sJI JLuuAJI -2 

/>jj 3 Receiver Users o-c ^JLjslo Sender User JJ IP MulticastingJI a 9 ^3 
0LC3JOJS10 i_sdls IgJuo 33J2} lSjJI Ac3ja^toJI tjJI GrOlipJI User 1 jjo JLujjVI 
... l#J JLujjVI -vj>' ^ojl olx3jcoex>JU Address List />jj3 < 


By FADI Abdel-Oader 



Multicast Clients Group 1 
Group : 224.100.0.1 




Multicast Clients Group 2 
Group: 224.100.1.1 


Half Duplex Multicast System for Multi-Groups 
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:Usinq Multicast Sockets with .NET: UU 


MembersJI ^±c. Ls^ 03-dl ^ MulticastingJI gjo JolszJI IsuL uj L>>_dj 
L^jJLc oULxsJI qjo c^souiju (jj-y Lu2i3 L^j <^£>bdl ClassesJl3 

i_yJLc Ijuojs* Conference System />lldj cLuu />3jjj_juu dUi A2J3 AiioJI jjjo Ac3joc%jo 

... MulticastingJI 

: MulticastingJI &*> Jols-JI AhujLaAJI oULxsdl ^ 

: Joining II Drop Group ,vo ;>g>jJI gl plo^ajJI -1 

l _yJLc OJu^bJI lS$uuJ O LLxc sst Multicast GroupJI i_sJj />lo^\JI AdLxc />>Jb \) 

Jl />Ijlx^uuIj 3 udpCIient Object ^sujsu j&j dU:> ^3 < ^jctoJI IP MulticastingJI portJI 
lod3 ^53^ sSjJI IP MulticastingJI vjjj^j />jj JoinMulticastGroup Method 

C#1 

UdpCIient sock = new UdpClient(5020); 
sock.JoinMulticastGroup(IPAddress.Parse("225.100.0.1"), 50); 

IPEndPoint iep = new IPEndPoint(IPAddress.Any, 0); 

VB.NET: 

Dim sock As UdpCIient = New UdpClient(5020) 
sock.JoinMulticastGroup(IPAddress.Parse("225. 100.0.1"), 50) 

Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Any, 0) 


:AC3jcoejo i jjo />lcx-aj\JI AdbxC clsdJ v_sdb lodg 

C#1 

sock.DropMulticastGroup(IPAddress.Parse("225.100.0.1")); 

VB.NET: 

sock. DropMulticastGroup(IPAddress.Parse("225. 100.0.1")) 

cUJI 3I /x^J DropMulticastGroup 5 JoinMulticastGroup Methods Jl il 

Class /)Ijc«j_ujIj 3 < Multicast GroupJI l >o q^LsJI Ac3joj5ejo 3I 0I3JLC 
Jjo^J Multicast Group ^3 1 $slo Jols-J IP Address List Ludd^ :MulticastOption 

JLajLjujJ qj3^£ A9L0J JLuod odL lad /)AitjLjuuu3 Multicast Group sS\J Drop 3 Join 

: Multicast JjLuuj 

: v^JL Lod3 UDP SocketJI II5I 

C#: 

mcastSocket = new Socket(AddressFamily.InterNetwork,SocketType.Dgram, 
ProtocolType.Udp); 

VB.NET: 

mcastSocket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, 
ProtocolType.Udp) 

3I GroupJI v_s\S tJLs-il jjjj <~sjJi IPJI L^-JI aa-juju p 3 Address List i_o jjslj jo^su IjU 
: v_sdL Lod3 Bind ^3 jl«joJI />ljct*juuL 03dduuJU ccjuuLQjj 0I3JL2JI UserJI 
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C#i 

IPAddress locallPAddr = IPAddress.Parse(Console.ReadLine()); 
mcastSocket.Bind(IPIocal); 

VB.NET: 

Dim locallPAddr As IPAddress = IPAddress.Parse(Console.ReadLine) 
mcastSocket.Bind(IPIocal) 

:v_sJL lo^ ^jlsioJI ol^jjdl IgJ juljuuu 3 Multicast OptionJI LJU 

C#: 

MulticastOption mcastOption; 

mcastOption = new MulticastOption(locallPAddr); 

VB.NET: 

Dim mcastOption As MulticastOption 
MulticastOption(localIPAddr New = mcastOption) 

J3V1 1 :>3jLjjoJI ojjb -L>b SetSocketOption ,_sJ-c j /XJ <JJ 03 

LuJb> 1^93 UDP 3I TCP 3I Socket ^jJLc 3! IPv6 ,_sJ-c si IP i_jJLc jjjj&JI juo juJlslJ 
v_s^ 93 Multicast Group ,_jJI IP /x-o 3^1 CJujj to il IP (_jJLc ^*i&JI />Jc«jLjuuu i_93_juj OJai 

qj3*ac 4sLol jJjj jLjj>\I| ijSjsjs <Xj^lC A9LdI JjjJ v_sOUJI jjjj 03 _jLJI 

MulticastOption Jl qJI ju^uu 1^13 DropMembership A's^ ^Msl AddMembership 

:v_sJL laS 3 qJLiub Los LSJJI3 Object 

C#: 

mcastSocket. SetSocketOption(SocketOption Level . IP, 
SocketOptionName.AddMembership, mcastOption); 

VB.NET: 

Dim mcastOption As MulticastOption 
mcastOption = New MulticastOption(locallPAddr) 

:Sendinq Data to a Multicast Group Accux^o, Jl JLuuAJi -2 

Socket ObjectJI o* ^sl IP MulticastingJI /xl-vst^h JLujjJI 

Object Jl ^Jl PortJI p3j$ IP MulticastingJI iL^uls UDP ConnectionJI />lAi*^ujb 
data as Jl L^J ju^uu 0^ sendto methodJI />ljc*^uub JL^JI sJ^-^s ■■■ IPEndPoint 

\<=^u AJLuuj JLuujV sM' b>Js IPEndPoint Object^ Bytes Array 


C#: 

Socket server = new Socket(AddressFamily.InterNetwork,SocketType.Dgram, 
ProtocolType.Udp); 

IPEndPoint iep = new IPEndPoint(IPAddress.Parse((" 225 . 100 . 0 . 1 "), 5020 ); 

byte[] data = Encoding.ASCII.GetBytes(msg.Text); 

server.SendTo(data, iep); 

server. Close(); 

msg.ClearO; 

msg.FocusQ; 
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VB.NET: 

Dim server As Socket = New Socket(AddressFamily.InterNetwork, 
SocketType.Dgram, ProtocolType.Udp) 

Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Parse("225. 100.0.1"), 5020) 

Dim data As Byte() = Encoding.ASCII.GetBytes(msg.Text) 

server.SendTo(data, iep) 

server. Close 

msg.Clear 

msg. Focus 

OJpeJ Memory StreamJI />Ijc*^J o-o ju\) \Llo 6 , 3 ^ Jl^lS Binary Data JL^Vs 
LpJLuujI dUi> Byte Array ^1 L pj Stream Ai+& 6 >dljJI 6 , 3 -aJI 

1 x 5^3 sendto MethodJI />ljd*^uuU 

C#: 

MemoryStream ms = new MemoryStream(); 

PictureBoxl.Image.Save(ms,System. Drawing.Imaging.ImageFormat Jpeg); 

byte[] arrlmage = ms.GetBuffer(); 

ms.CloseO; 

Socket server = new Socket(AddressFamily.InterNetwork,SocketType.Dgram, 
ProtocolType.Udp); 

IPEndPoint iep = new IPEndPoint(IPAddress.Parse("225.100.0.1"), 5020); 
server. SendT o(arrImage,iep); 

VB.NET: 

Dim ms As MemoryStream = New MemoryStream 

PictureBoxl. Image. Save(ms, System. Drawing.Imaging.ImageFormat Jpeg) 

Dim arrlmage As Byte() = ms.GetBuffer 
ms.Close 

Dim server As Socket = New Socket(AddressFamily.InterNetwork, 
SocketType.Dgram, ProtocolType.Udp) 

Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Parse("225. 100.0.1"), 5020) 
server.SendTo(arrImage, iep) 

:Receiving Data From a Multicast Group Acqjoj^o ,-up JLa^AJI -3 

Ac 3 jo^£joJIj ^yobJI IP MulticaStJI JuJlsJ jjjo \^ 3 1 Ju\J Ac 3 ja_>jo i jjo JLiiJLjuj\)l gJojLjuuu 

v_svJU Lod dUi pps Receive MethodJI />Ijl^ujL. oULJI JUl^I pj <uJI/>lo^\JI 3 

. I i st Box ^ps AJ Ljuj^ J 

C#1 

UdpCIient sock = new UdpClient(5020); 
sock.JoinMulticastGroup(IPAddress.Parse("225.100.0.1"), 50); 

IPEndPoint iep = new IPEndPoint(IPAddress.Any, 0); 

byte[] data = sock.Receive(ref iep); 

string stringData = Encoding.ASCII.GetString(data, 0, data.Length); 
listBoxl.Items.Add(iep.Address.ToString() +" "+stringData ); 

VB.NET: 

Dim sock As UdpCIient = New UdpClient(5020) 
sock.JoinMulticastGroup(IPAddress.Parse("225. 100.0.1"), 50) 

Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Any, 0) 
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Dim data As Byte() = sock.Receive(iep) 

Dim stringData As String = Encoding.ASCII.GetString(data, 0, data.Length) 
listBoxl.Items.Add(iep.Address.ToString + " " + stringData) 

Receive MethodJI ^JJO oULJI Jl JLfiji-JUJ \) memory StreamJI p\ 

i_sJI pj Stream Data c u r us> l _yJLc 6_>SljJI 

:^sJu I 0 S 9 image.FromStream MethodJI 


C#: 

UdpCIient sock = new UdpClient(5020); 
sock.JoinMulticastGroup(IPAddress.Parse("225.100.0.1")); 
IPEndPoint iep = new IPEndPoint(IPAddress.Any, 0); 


byte[] data = sock.Receive(ref iep); 
MemoryStream ms = new MemoryStream(data); 
pictureBoxl.Image = Image.FromStream(ms); 
sock.CloseQ; 


VB.NET: 

Dim sock As UdpCIient = New UdpClient(5020) 
sock.JoinMulticastGroup(IPAddress.Parse("225. 100.0.1"), 50) 

Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Any, 0) 

Dim data As Byte() = sock.Receive(iep) 

Dim stringData As String = Encoding.ASCII.GetString(data, 0, data.Length) 
listBoxl.Items.Add(iep.Address.ToString + " " + stringData) 

: oHfcjuuJI ulctflv iSsS MulticastinqJI joIajo-mjI i_s\3 cu>L£> oLhg^Lo 

MulticastingJI JLuujI AJLxsd Network StreamJI ^Ijct^l gJa^uuu \) Lot Ja>\LoJI qjo -1 
MulticastingJI ^9 ^Iao 9&9 TCP Socket Connection ^3 L^ol-v^-^l M 
sendto Jl j+c. Binary Stream JL^V memory StreamJI />Ijls^uuL 

... method 

JLo>l s\ ASLhOj p\c. AJL> loopback J MulticastingJI /JjcsAjujI JLSuaj \) - 2 
.pJJjuuJU JUL^ul />jlc AJL> v_s\S MulticastingJI ol.6.iJaJ i jjo i_st Aj_>j%j gJojLjuuu qJ jJJjJ 

JU-XS <dlAS£U> ol^> ,JJ0 JjJiAjuuU CjuAtJ AC3jOwtO ,JJ0 piS\ tjJI /U2 jJ ul jlgj> JiJ -3 

.olc 3 jcoiio oac t^l JLujjJI &J: 2 j-juuu 


sendto MethodJI ^ Multicasting DataJI JLuujV a^sjoouuuoJI AsljuJI 03SJ o^LJI ^9 -4 
Stream Reader & WriterJIg Binary Reader & WriterJI /sljde^jl JLSJx; JUjJ 

... IgJuO \Jju JljLfl-t-JuuJIj JLuUjJ 

ojo ju\) JUjJ L^SJLoj ^saJI Network Topology JJ ^99 IP MulticastJI I aJLx£ pjj -5 

.. LqjLuj cuJlaj to 9&>9 6:>Jc%joJI ^3LsJU JjJiJI 
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:Multicasting Conferencing Systems oljjoJiaJI jallsu pg>juuuo t 4*JaJ UJU 


6_>^b*joJI clflJU j-bbsioJI J03JL1 <LjL£> ° 3 j£. ^^>3 ljoi> v_sv5 

qjMJo cuj J iLjuj'sJI gjJo^juUU 1x5^3 iLjujJI O^jJ l_j\LkJI lui) Jujj il QjJJo />lol Jl S2J 
i_j\JJcJI gJoj_juuu laS Power Point SlidesJI l _sJLc a^b^oJI s^Hol ^1 Asl^Vb 

... Text Chatting iL^AJI go cja^JI 

oIjjoJ^jo jo Uaj v_s^ 5>3 cc^juulJj QjoJojl cti\Li (_jJI oIjjoJ^joJI jo Udj /U-JuULfljU Ld> jo^su 
Jjo^j J03SU i_93_juj cuIjJI v_s^ 9 tI oI_>oJ3joJI jo\]cu3 <. _aj5uoJI gJo-Juj oIjjoJ^jo jo\]cu3 3 jAxflJI 

! v^sJ LJ I I kS^ Lo^ 3 ti j-JJ c ^~juJuUj] I *LuJ LujJ I 


Forml.cs [Design] | 



mainMenul 


: Full/Half Duplex Multicast Video Conferencing System -1 

DirectX 9 Jl go JoLlo ^13 <Lj>,bJl ClassesJI 0-0 q^oto Microsoft LJ 0^3 
cu9jJo lsI 3I 03^0)1 3I Scanned I 3I l^-yolSJI go JjoIszJ I^Ijcsj-juuI gJai_juuu 6 j_jujLo 
6 js ^3 kLJ\J Direct Show Dot Net ClassesJI />jj^_juuu d3_^u ,3^kJI lj^> ^3 ^>>1 
Multicast Jl ^1 La>\J IfJLuujI g+k^uu c^> Picture boxJI ^>^3 UvoKJI ^ 
.. LiuLuu oLu lo 3^3 Sendto methodJl3 memory StreamJI />ljct^uuU Group 

!v_sJU I0S3 £3 _>juuuoJI ^jJI Direct Show ClassesJI jo^oj i_93_uj L^joIjc«j_jujI gJajLjuuu ( _s^ > s 
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Solution Explorer - DShowNET 


m n a 


1^ Solution 'Conference System' (2 pi 

/V 

S- 1 

Jp Conference System 


&• 1 



0 

E (jo) References 
ifj AssemblyInfo.es 
tf 1 DsBugWO.es 
[£] DsControl.es 

DsCore.es 



[*1 DsDevice.es 

Q DsDVD.es 



Q DsExtend.es 

V 

< 

| > 


^9 Solution Explorer | ^ Class View 

— 


■ ^1 JlZ^jLjuJ U l^j-CJui-juJU Lp_S2jO Jjolaju t _S^i>3 

C#1 

using DShowNET; 
using DShowNET.Device; 

VB.NET: 

imports DShowNET 
imports DShowNET.Device 


. i^SvJLJI v_5\S LcO UoKJI JLuUjVI ^voljjj ** J 3 


MainForm.es [Design]* I MainForm.es* 


<1 > X 



guoljjjJI J^uuj culju _uc Jb^yi jL^> DeviceSelector ClassJI JlZ^jLajUI. j v-S^-juu 

lo^3 
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C#i 

DeviceSelector selector = new DeviceSelector( capDevices ); 
selector.ShowDialog( this ); 
dev = selector.SelectedDevice; 

VB.NET: 

Dim selector As DeviceSelector = New DeviceSelector(capDevices) 

selector.ShowDialog(Me) 

dev = selector.SelectedDevice 


: v_sJL lo^ 6 ajjj> method cLojuL />§su i_ 93 _uj IjjjoLSJI j+c Jl JoU\) 3 

C#: 

void OnCaptureDone() 

{ 

try { 

Trace.WriteLine( "!!DLG: OnCaptureDone"); 
toolBarBtnGrab. Enabled = true; 
int hr; 

if( sampGrabber == null )return; 
hr = sampGrabber.SetCallback( null, 0 ); 
intw = videoInfoHeader.BmiHeader.Width; 
int h = videoInfoHeader.BmiHeader.Height; 

if( ((w & 0x03) != 0) 11 (w < 32) 11 (w > 4096) 11 (h < 32) 11 (h > 4096) ) 
return; 

int stride = w * 3; 

GCHandle handle = GCHandle.Alloc( savedArray, GCHandleType.Pinned ); 
int scanO = (int) handle.AddrOfPinnedObject(); 
scanO += (h - 1) * stride; 

Bitmap b = new Bitmap( w, h, -stride, PixelFormat.Format24bppRgb, (IntPtr) 
scanO ); 
handle.Free(); 
savedArray = null; 

Image old = pictureBox.Image; 
pictureBox.Image = b; 
if( old != null ) old.DisposeQ; 
toolBarBtnSave. Enabled = true;} 
catch( Exception){} 

} 

VB.NET: 

Private Sub OnCaptureDone() 

Try 

Trace.WriteLine("!!DLG: OnCaptureDone") 

toolBarBtnGrab. Enabled = True 

Dim hr As Integer 

If sampGrabber Is Nothing Then 

Return 

End If 

hr = sampGrabber.SetCallback(Nothing, 0) 

Dim w As Integer = videoInfoFleader.BmiFleader.Width 
Dim h As Integer = videoInfoFleader.BmiFleader.Fleight 


109 






If ((w And &H3) <> 0) OrElse (w < 32) OrElse (w > 4096) OrElse (h < 32) OrElse 
(h > 4096) Then 
Return 
End If 

Dim stride As Integer = w * 3 

Dim handle As GCHandle = GCHandle.Alloc(savedArray, GCHandleType.Pinned) 

Dim scanO As Integer = CInt(handle.AddrOfPinnedObject()) 
scanO += (h - 1) * stride 

Dim b As Bitmap = New Bitmap(w, h, -stride, PixelFormat.Format24bppRgb, New 

IntPtr(scanO)) 

handle.Free() 

savedArray = Nothing 

Dim old As Image = pictureBox.Image 

pictureBox.Image = b 

If Not old Is Nothing Then 

old.Dispose() 

End If 

toolBarBtnSave.Enabled = True 
Catch el As Exception 
End Try 
End Sub 

Jl JoLaJI AjJLxc jIjjoj_juu\) cus v_sJUI i^SJI A 9 L 0 I 3 Timer />J 

C#: 

int hr; 

int size = videoInfoFleader.BmiFleader.ImageSize; 
savedArray = new byte[ size + 64000 ]; 

VB.NET: 

Dim hr As Integer 

Dim size As Integer = videoInfoFleader.BmiFleader.ImageSize 
savedArray = New Byte(size + 64000) {} 

Timer v_svS 3 JLujjI method i_ 93 _juj j_>\JI ^jJI 6 j 3 ^JI JLuj _;\)3 

!v_sJL Lx5^3 

C#: 

try 

{ 

MemoryStream ms = new MemoryStream(); 

pictureBox. Image. Save(ms, System. Drawing. Imaging. ImageFormat Jpeg); 

byte[] arrlmage = ms.GetBuffer(); 

ms.CloseO; 

Socket server = new Socket(AddressFamily.InterNetwork,SocketType.Dgram, 
ProtocolType.Udp); 

IPEndPoint iep = new IPEndPoint(IPAddress.Parse(textBoxl.Text), 5020); 
server.SendTo(arrImage, iep); 
server.Close();} 
catch (Exception){} 
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VB.NET: 

Try 

Dim ms As MemoryStream = New MemoryStream 
pictureBox.Image.Save(ms, System.Drawing.Imaging.ImageFormatJpeg) 

Dim arrlmage As Byte() = ms.GetBuffer 
ms.Close 

Dim server As Socket = New Socket(AddressFamily.InterNetwork, 
SocketType.Dgram, ProtocolType.Udp) 

Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Parse(textBoxl.Text), 5020) 

server.SendTo(arrImage, iep) 

server.Close 

Catch generatedExceptionVariableO As Exception 
End Try 


AjJj ijjo loJ i_sJ[ Ij-yolSLII 6j^di\ JLujjl j-obcxdl gJojLjuuu Llq>3 

O 0 LuJ I |"> O-jLLuJ \J < ^5 La_ajjJ ^jO I A^jLjuJ I 1 1 J?3-*- jLj S IS J I \do 

v_sJJ oULJI gjj 3 j Access PointJI ^ 3^3 UnicastJI Access PointJI ^1 

BroadcastJI ^Ijcs^ujU />^J L^JLu ^3 Multicast GroupJI ^1 cLac\JI g^yo^ 

: v_sJ LJ I JSL^I v_s^9 LaS3 



Full/Half Duplex Multicast Video Conferencing System - For Class Room 
That uses a Peer-to-Peer Wireless Network 


i_s\j2>3 6juLuj\JI Ac3jo-2ejo i jjjX3jo^to i^yJI /x-oJu _>*ob%joJI uls (JjjLuuJI JSL^uJI v_s\3 Iaj>\lj 1x5^3 

^Jl 3 224.100.0.1 l_j\UaJI AC 3 JO-PEJO 3 iL^-Jc 6 j^> J-yOjjuULyjuJ 225.100.1.1 
Access Point 1JI v j_<j JLujjJI 0I9 LojI I 0 J 3 .. lg_JI 6 j ^ xi \ i_93_juj 

... UnicastJI />\. JC^LjuJ L />jj Access Point 2 Jl 3 


ill 



















guoli^jj cLuJuj QjO Ju\J i c u\>lb /^SL-jujI gd^jLjuUU 

CJuJU3 6I J Ll&jljuU \J UjLjuJ L^JlI ITIGthOCl—Jl ^jjJlQJ fi. AJ>iLjuUUljuJ 

:^sJUI JSL 2 JI ^9 L>5 jua> New Form Jo^j ps 

Receiver.cs [Design]* | 



: Multicast GroupJI o-*> Jl JLa^uuU AJUI Namespaces Jl />jc*j^uuu 


C#: 

using System.Net.Sockets ; 
using System.Net; 
using System.10; 
using System.Threading; 

VB.NET: 

imports System.Net.Sockets 
imports System.Net 
imports System.10 
imports System.Threading 


IunJL Lo 5 JLijj_Ajj\JI method AjLSu p3 pi 


void Image_Receiver() 

{ 

UdpCIient sock = new UdpClient(5020); 

sock JoinMulticastGroup(IPAddress.Parse(textBoxl.Text)); 

IPEndPoint iep = new IPEndPoint(IPAddress.Any, 0); 

byte[] data = sock.Receive(ref iep); 
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MemoryStream ms = new MemoryStream(data); 
pictureBoxl. Image = Image.FromStream(ms); 
sock.Close(); 

} 

VB.NET: 

Sub Image_Receiver() 

Dim sock As UdpCIient = New UdpClient(5020) 

sock .JoinMulticastGroup(IPAddress.Parse(textBoxl.Text)) 

Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Any, 0) 

Dim data As Byte() = sock.Receive(iep) 

Dim ms As MemoryStream = New MemoryStream(data) 
pictureBoxl.Image = Image. FromStream(ms) 
sock.Close() 

End Sub 

JjjLajjlJI />lku _>jtu \) ThreadingJI 1 jjo ju\) lpj_c-\j_juuu i_s ^>3 

v_sJUI c \j3 2^59 Timer Jjo^j ps JUjj />$su i_s ^ > 3 > JU&j-jjjJI 

: ThreadingJI 

C#: 

Thread myth; 

myth= new Thread (new System.Threading .ThreadStart(Image_Receiver)); 
myth.Start (); 

VB.NET: 

Dim myth As Thread 

myth = New Thread(New System.Threading.ThreadStart(Image_Receiver)) 
myth. Start 

/x9 JPEG Image File ,_sJLc I^jjoISJI AJaaJLoJI Jl 

:<_sJL saveFileDialog cLojuL 


C#: 

try 

{ 

saveFileDialogl.Filter = "JPEG Image (*.jpg)|*.jpg"; 
if(saveFileDialogl.ShowDialog() == DialogResult.OK) 
{ 

string mypic_path = saveFileDialogl.FileName; 
pictureBoxl.Image.Save(mypic_path); 

} 

} 

catch (Exception){} 
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VB.NET: 


Try 

saveFileDialogl.Filter = "JPEG Image (*.jpg)|*.jpg" 

If saveFileDialogl.ShowDialog = DialogResult.OK Then 
Dim mypic_path As String = saveFileDialogl.FileName 
pictureBoxl. Image. Save(mypic_path) 

End If 

Catch generatedExceptionVariableO As Exception 
End Try 

gJa^juuy ^>9 < Video Conference SystemJI 3^3 J3\)l ^j^iuoJI 0-0 cL^oVI /O a 9 La>3 
£3 _>juuuo Jjo^j />9su d 9 ^-uj Power PointJI gjjolijj />ljii*j_jujlj Cj-zsbjjoJI _>^>b!joJI 

... l_ji_i£uoJI gdcLjuJ oIjjoJ^jo 


: Full/Half Duplex Multicast Desktop Conferencing System -2 

Power Jl gjjobjj />l (> 3 >C 1 jjO iL_juu\JI 3ji £3 jjuIjuoJI Ijuai 1 jjO v_ 9 A^JI 

V3 < AjJUoJI bj&>\ i_sJI iL-juu\JI jl^> o-° <~r*j^oJI gdojjj 6 j 3^) Point 

JoLqjJU />3jjjJ Classes cLojuI iS$uuj cv_s\_*ii v_s\S (jjjLujJI gpoU^jJI JLuujVI ciJbxc 

tjJLc L^oj^3 L^JLlo-ljujI fij OJ03 Multicast GroupJI ,_sJl IgJLuujI />j sj^j^-oJI gdo_uj 

... Data Show Projector/>ljct^uuU »_AlkJI 

: gjjobjjJI JjtxC JoJccsjo LjS>3 


By FADI Abdel-Qader 



Multicast Students 224.100.0.1 Group 


Full/Half Duplex Multicast Desktop Conferencing System- For Class Room 
That uses a Peer-to-Peer Wireless Network 


^S^tisiJuijJI C)jlgj> (_5 \JLc. Oj-obtxJI g>juuu jo^SL j iL_uj\l| ul9 ^JUI Ji^uJI i jjo Jd>\lj to^3 

i >Suoj lo ^3 cGejVI Aob>l AJbxsdl CJui u[5 Usui Jiu>\Lj lo^g v_->\I_loJI ,^1 6j 3 -^aJI J-uj_>j 3 
JLuujVI AJLcxsd 6 jujj> Ac 3 joj%jo cLuuul qjo ju\) Full 11 Half Duplex IgJbz^- 
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v _sJI L^JLuj^j 3 QJj-objjo iL_*jj\JI ^yajsu iL_uj\JI tjJI i_JllaJI \js> 
iL_juj\JI ^c^joj^jo ^jJI 6j 3^JI il ,_svJLc- 0 )L^j> (>3>c a>I gJajLjuuu3 



J^LuuJI v_s^9 Lcx5 jua>- New Form Jjo^j />j v-ajSLoJI ^Jo-juj i>j^> JLujjI gpob^j cLoju^ 

:^JU! 

Desktop.es [Design] 




0H Desktop Conference System - Screen Sender 


JL*.jyi ljy.1 


224 100.0 1 


Ulricas 


Conference System 


iaii LilJiAjU j<iiuiV4 jJI !ja 

jjjVi _ jjliS ±jt. 

fad i 822000 @yahoo.com 


iv_svJU lo ^3 v_A_iSuoJI q]cuuj JoLqjJ\) Three Classes Jjo^ />s^u AjIjlJI v_s ^9 
:APIJl 3 GDI+JI />ljct^uuU sju^LoJI 6j$^> ^laJV PlatFormInvokeGDI32.cs V 3 I 


C#: 

using System; 

using System.Runtime.InteropServices; 
namespace SampleGrabberNET 
{ 

//This class shall keep the GDI32 APIs being used in our program, 
public class PlatformInvokeGDI32 
{ 

#region Class Variables 

public const int SRCCOPY = 13369376; 

#endregion 

#region Class Functions 
[DIIImport("gdi32.dH",EntryPoint="DeleteDC")] 
public static extern IntPtr DeleteDC(IntPtr hDc); 

[DIIImport("gdi32.dll",EntryPoint="DeleteObject")] 
public static extern IntPtr DeleteObject(IntPtr hDc); 

[DIIImport("gdi32.dll",EntryPoint="BitBlt")] 
public static extern bool BitBlt(IntPtr hdcDest,int xDest,int yDest,int 
wDest,int hDest,IntPtr hdcSource,int xSrc,int ySrc,int RasterOp); 
[Dlllmport ("gdi32.dll",EntryPoint="CreateCompatibleBitmap")] 
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public static extern IntPtr CreateCompatibleBitmap(IntPtr hdc, 
int nWidth, int nHeight); 

[Dlllmport ("gdi32.dll",EntryPoint="CreateCompatibleDC")] 
public static extern IntPtr CreateCompatibleDC(IntPtr hdc); 

[Dlllmport ("gdi32.dll",EntryPoint="SelectObject")] 

public static extern IntPtr SelectObject(IntPtr hdc,IntPtr bmp); 

#endregion 

#region Public Constructor 
public PlatformInvokeGDI32() 

{ 

} 

#endregion 

}} 

VB.NET: 

Imports System 

Imports System.Runtime.InteropServices 
Namespace SampleGrabberNET 

'This class shall keep the GDI32 APIs being used in our program. 

Public Class PlatformInvokeGDI32 

#Region "Class Variables" 

Public Const SRCCOPY As Integer = 13369376 
#End Region 

#Region "Class Functions" 

<DIIImport("gdi32.dll", EntryPoint:="DeleteDC")> _ 

Public Shared Function DeleteDC(ByVal hDc As IntPtr) As IntPtr 
End Function 

<DIIImport("gdi32.dH", EntryPoint:="DeleteObject")> _ 

Public Shared Function DeleteObject(ByVal hDc As IntPtr) As IntPtr 
End Function 

<DIIImport("gdi32.dH", EntryPoint:="BitBlt")> _ 

Public Shared Function BitBlt(ByVal hdcDest As IntPtr, ByVal xDest As 
Integer, ByVal yDest As Integer, ByVal wDest As Integer, ByVal hDest As Integer, 
ByVal hdcSource As IntPtr, ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal 
RasterOp As Integer) As Boolean 
End Function 

<DIIImport("gdi32.dH", EntryPoint:="CreateCompatibleBitmap")> _ 

Public Shared Function CreateCompatibleBitmap(ByVal hdc As IntPtr, ByVal 
nWidth As Integer, ByVal nHeight As Integer) As IntPtr 
End Function 

<DIIImport("gdi32.dH", EntryPoint:="CreateCompatibleDC")> _ 

Public Shared Function CreateCompatibleDC(ByVal hdc As IntPtr) As IntPtr 
End Function 
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<DIIImport("gdi32.dll", EntryPoint:="SelectObject")> _ 

Public Shared Function SelectObject(ByVal hdc As IntPtr, ByVal bmp As 
IntPtr) As IntPtr 
End Function 
#End Region 

#Region "Public Constructor" 

Public Sub NewQ 
End Sub 
#End Region 
End Class 
End Namespace 


^LuJI ClassJI §jo L^oAit^uuu il PlatformInvokeUSER32.cs Ipb 

: user32 APIJI />I. JC%jLjujb l~juiSLoJI gdo_«jj 

C#1 

using System; 

using System.Runtime.InteropServices; 
namespace SampleGrabberNET 
{ 

// This class shall keep the User32 APIs being used in our program, 
public class PlatformInvokeUSER32 
{ 


#region Class Variables 

public const int SM_CXSCREEN=0; 

public const int SM_CYSCREEN=1; 

#endregion 

#region Class Functions 

[DIIImport("user32.dH", EntryPoint="GetDesktopWindow")] 
public static extern IntPtr GetDesktopWindow(); 

[DIIImport("user32.dH",EntryPoint="GetDC")] 
public static extern IntPtr GetDC(IntPtr ptr); 

[DIIImport("user32.dH",EntryPoint="GetSystemMetrics")] 
public static extern int GetSystemMetrics(int abc); 

[DIIImport("user32.dH",EntryPoint="GetWindowDC")] 
public static extern IntPtr GetWindowDC(Int32 ptr); 

[DIIImport("user32.dll",EntryPoint="ReleaseDC")] 

public static extern IntPtr ReleaseDC(IntPtr hWnd,IntPtr hDc); 

#endregion 

#region Public Constructor 
public PlatformInvokeUSER32() 
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{ 

} 

#endregion 

} 

//This structure shall be used to keep the size of the screen, 
public struct SIZE 
{ 

public int cx; 
public int cy; 

> 

} 

VB.NET: 

Imports System 

Imports System.Runtime.InteropServices 
Namespace SampleGrabberNET 

' This class shall keep the User32 APIs being used in our program. 

Public Class PlatformInvokeUSER32 

#Region "Class Variables" 

Public Const SM_CXSCREEN As Integer = 0 
Public Const SM_CYSCREEN As Integer = 1 
#End Region 

#Region "Class Functions" 

<DIIImport("user32.dH", EntryPoint:="GetDesktopWindow")> _ 

Public Shared Function GetDesktopWindow() As IntPtr 
End Function 

<DIIImport("user32.dH", EntryPoint:="GetDC")> _ 

Public Shared Function GetDC(ByVal ptr As IntPtr) As IntPtr 
End Function 

<DIIImport("user32.dH", EntryPoint:="GetSystemMetrics")> _ 

Public Shared Function GetSystemMetrics(ByVal abc As Integer) As Integer 
End Function 

<DIIImport("user32.dH", EntryPoint:="GetWindowDC")> _ 

Public Shared Function GetWindowDC(ByVal ptr As Int32) As IntPtr 
End Function 

<DIIImport("user32.dH", EntryPoint:="ReleaseDC")> _ 

Public Shared Function ReleaseDC(ByVal hWnd As IntPtr, ByVal hDc As 
IntPtr) As IntPtr 
End Function 
#End Region 

#Region "Public Constructor" 

Public Sub New() 

End Sub 
#End Region 
End Class 
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'This structure shall be used to keep the size of the screen. 

Public Structure SIZE 
Public cx As Integer 
Public cy As Integer 
End Structure 
End Namespace 

Jjolsiij gjob_)jJI v_s\S _>jujLjo JSLjJuu v_ 93 juj v_svjJI 3 CaptureScreen.es 1 UJU 

: PlatformInvokeUSER32 ClassJIg PlatFormInvokeGDI32 Class Jl §jo 


C#: 

using System; 
using System.Drawing; 

namespace SampleGrabberNET 

{ 

//This class shall keep all the functionality for capturing the desktop, 
public class CaptureScreen 
{ 

#region Public Class Functions 
public static Bitmap GetDesktopImage() 

{ 

//In size variable we shall keep the size of the screen. 

SIZE size; 

//Variable to keep the handle to bitmap. 

IntPtr hBitmap; 

//Here we get the handle to the desktop device context. 

IntPtr hDC = 

PlatformInvokeUSER32.GetDC(PlatformInvokeUSER32.GetDesktopWindow()); 

//Hlere we make a compatible device context in memory for screen device context. 
IntPtr hMemDC = PlatformInvokeGDI32.CreateCompatibleDC(hDC); 

//We pass SM_CXSCREEN constant to GetSystemMetrics to get the X coordinates 
of screen. 

size.cx=PlatformInvokeUSER32.GetSystemMetrics(PlatformInvokeUSER32.SM_CXS 

CREEN); 

//We pass SM_CYSCREEN constant to GetSystemMetrics to get the Y coordinates 
of screen. 

size.cy=PlatformInvokeUSER32.GetSystemMetrics(PlatformInvokeUSER32.SM_CYS 

CREEN); 

//We create a compatible bitmap of screen size using screen device context. 
hBitmap = PlatformInvokeGDI32.CreateCompatibleBitmap(hDC, size.cx, size.cy); 
//As hBitmap is IntPtr we can not check it against null. For this purspose 
IntPtr.Zero is used, 
if (hBitmap! =IntPtr.Zero) 

{ 

//Here we select the compatible bitmap in memory device context and keeps the 
reference to Old bitmap. 

IntPtr hOld = (IntPtr) PlatformInvokeGDI32.SelectObject(hMemDC, hBitmap); 
//We copy the Bitmap to the memory device context. 
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PlatformInvokeGDI32.BitBlt(hMemDC, 0, 0,size.cx,size.cy, hDC, 0, 0, 
PlatformInvokeGDI32.SRCCOPY); 

//We select the old bitmap back to the memory device context. 
PlatformInvokeGDI32.SelectObject(hMemDC, hold); 

//We delete the memory device context. 
PlatformInvokeGDI32.DeleteDC(hMemDC); 

//We release the screen device context. 

PlatformInvokeUSER32.ReleaseDC(PlatformInvokeUSER32.GetDesktopWindow(), 
hDC);//Image is created by Image bitmap handle and stored in local variable. 
Bitmap bmp = System.Drawing.Image.FromHbitmap(hBitmap); 

//Release the memory to avoid memory leaks. 
PlatformInvokeGDI32.DeleteObject(hBitmap); 

//This statement runs the garbage collector manually. 

GC.Collect();//Return the bitmap 
return bmp; 

}//If hBitmap is null return null, 
return null; 

} 

#endregion 

} 

} 

VB.NET: 

Imports System 
Imports System.Drawing 

Namespace SampleGrabberNET 

'This class shall keep all the functionality for capturing the desktop. 

Public Class CaptureScreen 
#Region "Public Class Functions" 

Public Shared Function GetDesktopImage() As Bitmap 
'In size variable we shall keep the size of the screen. 

Dim size As Size 

'Variable to keep the handle to bitmap. 

Dim hBitmap As IntPtr 

'Here we get the handle to the desktop device context. 

Dim hDC As IntPtr = 

PlatformInvokeUSER32.GetDC(PlatformInvokeUSER32.GetDesktopWindow()) 

'Here we make a compatible device context in memory for screen device 

context. 

Dim hMemDC As IntPtr = 
PlatformInvokeGDI32.CreateCompatibleDC(hDC) 

'We pass SM_CXSCREEN constant to GetSystemMetrics to get the X 
coordinates of screen, 
size.cx = 

PlatformInvokeUSER32.GetSystemMetrics(PlatformInvokeUSER32.SMCXSCREEN) 
'We pass SM_CYSCREEN constant to GetSystemMetrics to get the Y 
coordinates of screen, 
size.cy = 

PlatformInvokeUSER32.GetSystemMetrics(PlatformInvokeUSER32.SMCYSCREEN) 


120 



'We create a compatible bitmap of screen size using screen device 

context. 

hBitmap = PlatformInvokeGDI32.CreateCompatibleBitmap(hDC, size.cx, 

size.cy) 

'As hBitmap is IntPtr we can not check it against null. For this purspose 
IntPtr.Zero is used. 

If Not hBitmap.Equals(IntPtr.Zero) Then 

'Here we select the compatible bitmap in memory device context and 
keeps the reference to Old bitmap. 

Dim hOld As IntPtr = 

CType(PlatformInvokeGDI32.SelectObject(hMemDC, hBitmap), IntPtr) 

'We copy the Bitmap to the memory device context. 
PlatformInvokeGDI32.BitBlt(hMemDC, 0, 0, size.cx, size.cy, hDC, 0, 0, 
PlatformInvokeGDI32.SRCCOPY) 

'We select the old bitmap back to the memory device context. 
PlatformInvokeGDI32.SelectObject(hMemDC, hOld) 

'We delete the memory device context. 
PlatformInvokeGDI32.DeleteDC(hMemDC) 

'We release the screen device context. 

PlatformInvokeUSER32.ReleaseDC(PlatformInvokeUSER32.GetDesktopWindow(), 
hDC) 'Image is created by Image bitmap handle and stored in local variable. 

Dim bmp As Bitmap = System.Drawing.Image.FromHbitmap(hBitmap) 
'Release the memory to avoid memory leaks. 
PlatformInvokeGDI32.DeleteObject(hBitmap) 

'This statement runs the garbage collector manually. 

GC.CollectO 'Return the bitmap 
Return bmp 

End If 'If hBitmap is null return null. 

Return Nothing 
End Function 
#End Region 
End Class 
End Namespace 


: AJUI methodJI 6 j^ai\ /^> v_s\S /xSLxJI gJaj^uuu l _s ^>3 

C#: 

public Bitmap ResizeBitmap( Bitmap b, int nWidth, int nHeight) 

{ 

Bitmap result = new Bitmap( nWidth, nHeight); using( Graphics g = 

Graphics.FromImage( (Image) result)) g.DrawImage( b, 0, 0, nWidth, nHeight 

); 

return result; 

} 

VB.NET: 

Public Function ResizeBitmap(ByVal b As Bitmap, ByVal nWidth As Integer, ByVal 
nHeight As Integer) As Bitmap 

Dim result As Bitmap = New Bitmap(nWidth, nHeight) 

' Using 
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Dim g As Graphics = Graphics. FromImage(CType(result, Image)) 

Try 

g.DrawImage(b, 0, 0, nWidth, nHeight) 

Finally 

CType(g, IDisposable).Dispose() 

End Try 
Return result 
End Function 

: MulticastingJI §jo JoUzJ gu>li > JI ^ AJUI NamespacesJI JC^LjLjuUL j 

C#: 

using System.Net; 
using System.Net.Sockets; 
using System.10; 

VB.NET: 

imports System.Net 
imports System.Net.Sockets 
imports System.10 


iA^toJI Multicast GroupJI i_sJI IgJLujjl 3 i_*jiSuoJI gda-uj Timer Jjo^j jo$su 

C#i 

Bitmap bt = new Bitmap(CaptureScreen.GetDesktopImage()); 
picScreen.Image = ResizeBitmap(bt, 600, 400 ); 

MemoryStream ms = new MemoryStream(); 

picScreen.Image.Save(ms,System. Drawing.Imaging.ImageFormat Jpeg); 

byte[] arrlmage = ms.GetBuffer(); 

ms.Close(); 

Socket server = new Socket(AddressFamily.InterNetwork, 

SocketType.Dgram, ProtocolType.Udp); 

IPEndPoint iep = new IPEndPoint(IPAddress.Parse(textBoxl.Text), 5020); 
server. SendT o(arrImage,iep); 
server. Close(); 

VB.NET: 

Dim bt As Bitmap = New Bitmap(CaptureScreen.GetDesktopImage) 
picScreen.Image = ResizeBitmap(bt, 600, 400) 

Dim ms As MemoryStream = New MemoryStream 

picScreen.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg) 

Dim arrlmage As Byte() = ms.GetBuffer 
ms.Close 

Dim server As Socket = New Socket(AddressFamily.InterNetwork, 
SocketType.Dgram, ProtocolType.Udp) 

Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Parse(textBoxl.Text), 5020) 

server.SendTo(arrImage, iep) 

server.Close 
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: Full/Half Duplex Multicast Text Conferencing System -3 


Text Chat Multicast Conference Jl it^All ojlsJI aJI^II v_s ^>3 

isrsJLJI JSLajJI ^9 lo ^3 jua> New Form cLiuL p$si> System 

msgl.cs [Design] | 



:sJUI NamespacesJI qsLsL ps pi 

C#: 

using System.Net; 
using System.Net.Sockets; 
using System.Text; 
using System.Threading; 


VB.NET: 

imports System.Net 
imports System.Net.Sockets 
imports System.Text 
imports System.Threading 

to' j? up JI julc cJLujjJI ^-xjjp—uj Cjul^ JLujjVI c cJLtxc &^^jJLdl method_JI p^s %.jcajuu 

: Jl TextboxJI ^s3 qJLuujJI qjLS ssu EnterJI 

C#: 

private void msg_KeyPress(object sender, 

System .Windows. Forms. KeyPressEventArgs e) 

{if(e.KeyChar == , \r , ){ 
try{ 
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Socket server = new Socket(AddressFamily.InterNetwork,SocketType.Dgram, 
ProtocolType.Udp); 

IPEndPoint iep = new IPEndPoint(IPAddress.Parse(txt_host.Text), 5020); 

byte[] data = Encoding.ASCII.GetBytes(msg.Text); 

server.SendTo(data, iep); 

server. Close(); 

msg.Clear(); 

msg.Focus(); 

} 

catch(Exception){}}} 

VB.NET: 

Private Sub msg_KeyPress(ByVal sender As Object, ByVal e As 
System .Windows. Forms. KeyPressEventArgs) 

If e.KeyChar = Microsoft.VisualBasic.Chr(13) Then 
Try 

Dim server As Socket = New Socket(AddressFamily.InterNetwork, 
SocketType.Dgram, ProtocolType.Udp) 

Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Parse(txt_host.Text), 

5020) 

Dim data As Byte() = Encoding.ASCII.GetBytes(msg.Text) 

server.SendTo(data, iep) 

server.Close() 

msg.Clear() 

msg.Focus() 

Catch generatedExceptionVariableO As Exception 
End Try 
End If 
End Sub 

^JLlAjLjuULoJI AJLjuJ^jJI ^' > >> JLl&jLjuJI S-ljJLcXsd AjJLJI yO— K-OJ juJ^ 

list Box 


C#: 

public void server() 

{ 

try 

{ 

UdpCIient sock = new UdpClient(5020); 
sock.JoinMulticastGroup(IPAddress.Parse(txt_host.Text), 50); 
IPEndPoint iep = new IPEndPoint(IPAddress.Any, 0); 

byte[] data = sock.Receive(ref iep); 

string stringData = Encoding.ASCII.GetString(data, 0, data.Length); 

listBoxl.Items.Add(iep.Address.ToString() +" "+stringData ); 

sock.Close(); 

listBoxl.FocusQ; 

msg.FocusQ; 

myth.AbortQ; 

}catch(Exception){} 

} 
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VB.NET: 

Public Sub server() 

Try 

Dim sock As UdpCIient = New UdpClient(5020) 
sock.JoinMulticastGroup(IPAddress.Parse(txt_host.Text), 50) 

Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Any, 0) 

Dim data As Byte() = sock.Receive(iep) 

Dim stringData As String = Encoding.ASCII.GetString(data, 0, data.Length) 

listBoxl.Items.Add(iep.Address.ToString + " " + stringData) 

sock.Close() 

listBoxl. Focus() 

msg.Focus() 

myth.Abort() 

Catch generatedExceptionVariableO As Exception 
End Try 
End Sub 

methodJI q +9 Timer Jojzj ps < ThreadingJI ^Ijct^juul ^ _v\J I^jLcjlLjuj^ 

!v_sJL Lo ^3 ThreadJI />Ijc*j_juuU AfljLujJI 


C#: 

Thread myth; 

myth= new Thread (new System.Threading .ThreadStart(server)); 
myth.Start (); 

VB.NET: 

Dim myth As Thread 

myth = New Thread(New System.Threading.ThreadStart(server)) 
myth. Start 

^3 timerl.Enabled = true / jIjcj^jujU JLoj\JI jj ks^JI julc TimerJI JsL 2 uu ^ 3 ^ 

:v_svJLJI ^3SJI A 9 L 0 L p9 JLaj\JI cl^jl jj 


C#: 

timerl.Enabled = false; 
txt_host. Readonly = false; 
msg.Enabled=false; 
try 
{ 

Socket server = new Socket(AddressFamily.InterNetwork, 
SocketType.Dgram, ProtocolType.Udp); 

IPEndPoint iep = new IPEndPoint(IPAddress.Parse(txt_host.Text), 5020); 
byte[] data = Encoding.ASCII.GetBytes("has Left the Room"); 

server.SendTo(data, iep); 
server. Close(); 
msg.ClearO; 
msg.Focus(); 

} 

catch(Exception){} 
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VB.NET: 

timerl.Enabled = False 
txt_host. Readonly = False 
msg. Enabled = False 
Try 

Dim server As Socket = New Socket(AddressFamily.InterNetwork, 
SocketType.Dgram, ProtocolType.Udp) 

Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Parse(txt_host.Text), 5020) 

Dim data As Byte() = Encoding.ASCII.GetBytes("has Left the Room") 

server. SendTo(data, iep) 

server.Close 

msg.Clear 

msg. Focus 

Catch generatedExceptionVariableO As Exception 
End Try 

Multicast Conference Systems Jjox vjJLc iSj&v J-aoJI \ x & Lo 3 
. Video Conference System Jl cLiuj <JjJ 03JJI <U*j 


Voice Over IP Programming Jl v>e vsJUl J-aaJI <_s^9 CujlsJI />**->*> 
API's Jl Voice Conference System 3 Voice Chat Ja&I <u>Ijlj6uujI3 

.Ouu 03JJI Direct Play 9 JI3 
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Voice Over IP Programming 

- The Concept & Requirements of Voice 
Communication Systems 

- How to Create a Voice Chat Throw Dot Net 
Using Unmanaged API's Functions 

- Testing UDP Multicasting, TCP and Thinking in 
SCTP to Transfer Voice Throw Networks 

- How to Create a Voice Conference System 
Using Microsoft Direct Play 9 
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Jl v>A>>lI ,UI fiujJJ 

: Voice Over IP Programming 10 

i_sJI 03-xll IP 03^11 1 _J_qJ jjjo Qj^ujLuj^I 6^SLqJI 

Datagram Packets d cLLu /xoJ <uJLuuud pj Byte Array gjo^o Bits Jl o-o Ac 3 o^jo 
v_s\S 6_>o Packets Jl guppa pp j3-\JI i_9j_LJI <^3 03-xll JLlouuj\U3 < ciSJjuuJI _>*.c 
/oldl ssl FIFO - First In First OutJI Luo ^3 6cl>JI aJLjxc /XO3 < Byte Array ^930-00 

... J3I ijOjSZJ J3I 

JLo/l pJj t_s\-L> AojJJI Jc> 3 jjuuJI _>93j xSJuo i_sx9 03^JI Jjijj Qj-jujLujJI AJ^JujuoJI 1 jjo5u 

L'S LjuJU 03 O L 2>3-OsuO jjuSZJ^ 1 OjJLc I sS jj I v I t q9q 3 ,OuJLud I JjSJuaJ (j O ^Q. I 

Dot Net Jl vJ3jjJI ojo Microsoft lc:> Lo /xjd 0-0 Transport Layer Jl 

JoLLjuJI />LLu ul v_93_>s2joJI i jj03 1 v_sJbJI /xlkuJI Axjj i_sx 9 A-oL> 3 03^! I Jjjj AJLxsd 
ouJ Id JjI v_sx^s2j lAfli3 Joo9 UDP 3I TCP J3S3J3JJ /xIjoo-jujL JLojJI ^xcju Windows XP 
/xIjcsjLjujL \)l 035L qJ JLojI aJjcx^ lsI 0I9 Windows XP JoLLjlJI />Uai A-o-o ouo Jjcx^j 

... o\J3S3j3jjJI < 3 Jlo 3 qjo J0-I3 

The Requirements of Voice Communication Systems : Jgl 

03-aJI Jjjj l _JSLuuuo3 tlSuLJuuJI jjlC 03*^JI ( Jjjj oLJUajuo cjjdl l-Lfi) ox9 u-jOLu i_93_juj 

... UDP Jl 3 TCP Jl J3J3J3JJ /xIj^uuU 

: v^sJLuaJI Jju oULbJuo — 

Stream JjlJI vsJ-^l - 1 

Delivered on Sequence /xcju ol uou 03-aJI JjoJ Jl^jLjuULOs Jl J3S3J3JJI — 2 
Voice Compression />joo_juuuoJI Joa-oll ppt> xSjuo ,_sJLc- JjlJI Ac_^uj juoozj — 3 
Jjjj \) Joacy 31 KB\S ^ Jodi Acj^uj Jjjj \) ul AJbJI OAfli i_s\9 J-ao^ AkJJooJI £>^3>Jl3 

.03-all 6^3^J Ju*d 8.000 KHz ijs: 

< T j3o\II cjui UDP JI3 TCP Jl J353J33 _>93 < cAJI c CjuuLflj ^>Jqj sSjJI JI^juJI - 

AlSJuuuoJI AJLc 6cLa5u3 J30VI cAfli J5 TCP Jl J3S3J3JJ /xcju ! TCP Jl J3S3J3JJ J3I 

Jjcx^J Pjoljdujujl AjLSuoI /)JlC 3d> J3S3J3JJI lAfll v_sx5 C>Jlu»3JI 

Broadcasting JI 3 Multicasting Jl ol ^j^l ^ col il Multicast Conference System 
i_5\S c Ujjj Lo 3fl>3 j 3 jo\JI OJoi) 0^3 sSl TCP Jl /x^jj J3 UDP Jl J3^3J3 > u AzxbJI J30JI 0^3 
itojxVI o 5 ucxj \) JJjJ Oriented Protocol <^>30 J353J33 TCP Jl il i^/LuuJI J-^qJI 
u^JI AJL> vjJ 3! Multicast Conference System JasJ L^L> AJL> ^ qJLc 
.j3o\JI 0A3J Ljj>L> aJL> v_sxS UDP Jl J3S3J3JJ 303 ju^>3Jl3 _>>\)l J^JI Id .. Broadcasting 

AJLsJI 6cLfi5JL 03ZJI Jju AJLo^J jlot J^> J353J3JJI IA03 jjj. szj \) : UDP Jl J3^3 j3_>j LjU 
Jjcx^; AJbtijuul 0^3 s^uljuj Lo 3033 Delivered on SequenceAJLx^ ps ^ju \) cut il 
jy>j \) Ethernet Encapsulation /x^ ol ^jsjoJI (>03 J-juujjoJI Packets JJ Fragmented 
tyobJI Datagram Encapsulation JJ iJ n^9\)I px*J\ 3 ^3 j^^I Packet JJ KB 1500 
03-all J3^3 ojooJ L0L9 03-aJ Fragmented Jjo^j LuoJ aJL> ^9 JJjJ Ethernet JL 

Fragments Jl X_ kjJjJ OiLcI ClJLx£ 0 x 5 -J AJLSJujO UjuljuUU IjO 3033 ^J-juUjjoJI X_uUjdl t 393 

<OoL> J3l> AjjoJLsJI oLoJdJuoJl3 o15j_LuJI jjjo >0531 OuoA9 AlaoJI OJu 33 i jj 03 J^ujjjoJI 

International Telecommunications -ITU Jl AoJouo Igoo UDP Jl ^ 03-aJI Jju AJLxsJ 
IETF Internet Engineering Task Force ^aStux>3 H.323 JjoJI vs-JL^I L^ojoao Union 
jLsjaJI IJu33 vdLot o^> < RTP - Real Time Transport Protocol JjlJI vsi^l I^xj-^ 
^A^jljuUU ixl v_s\JLOOdl OJ03JI ox9 03^JI ( Jjjj tlJjo^d UDP Jl J3S3J3JJ oJ-^ oLojuuuej 
^piszj jLozjoJI Iju3> J^> 093 UDP Jl A-Ouo oxi odd TCP ox9 /xjcoouuuoJI Stream Jl ius-J-jJ 
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AjJLxC /xCJl) J3J3J3JJ ^U=sJLo OUfcjuJ A^-bdl ul d < L^S2 jjO^> (Jjj-J qJ\J JJLduoJI Odd) 
Stream J JLiJI a^o AJLodL 1 Delivered on Sequence eu^JI ^J^iil 1A3 JdJI 
SCTP Jl sjs> 3 >>l J3S3J3JJ cLiuL Jodi 0U3 < Broadcasting JI3 IP Multicasting JU a^ 3 
ldd> /x^jj \) Windows A^ioo ol AJLlddoJI - Stream Control Transmission Protocol 
Microsoft 0JLC3 LoJ < Linux J^aLlJI pi .Lo ^9 JjoU JSJuu cu^o pj A93 ^3^^! 
,_sJLc v_soLuj 1-SJI3 Windows JjoOudJI pihu v_sJUI J-0£>\)l ^_p9 J3J3J3JJI ldd> a-^J 

. J-Z)JI Idd) i JjO v_sJ LJ I CjO%Jl «_S\9 QS>j-juJ 


: The Concept Of Voice Communication: LjU 

J_<doJ3 u393 > Sul j0 JI o-° '■ 03^x11 JoLaJU IjuJ Jo>IjjoJI 1 jjo Ac3joo%a 03*0!! JLaJI AJLxC jjxj 
oLjujJ Sampling Jjo^j dJo3 Bits Jl l >o <^c^x>j>jo ,_sJ! LgJLKpo pj A_j3^JI oUj Jl 
03^x11 Jjd AJLxc. JJ0J3 ASJdJI jjlC 03-JI Jjjj LuJjoj AJLoJI odd) ASL13 ‘LLxojJLoJI A_03 j JI 

: v_s^>3 Jod^dl i >o Ac3joo%joj Ad. jljuUL Jl ^ 


< LbLuj ‘oji lo 3^3 Bits ljJI ^3^3 03^JI JUJI AjOjJ < Application Layer Jl -1 
^ cULujJ o^jyj l _su^>3 Audio Compression Teachings 03^1 Jasxzxl oLjJij />Ijc«jLjujI 3 

.JUxjJI Ad. jljuUL J C^JlXjoJI o JLJAJI 

ol d jLxcdl Ua>I ux SrS v-JI j5jo\)| ^dJ ^ 3^3 , Transport Layer Jl -2 
A.9^3 Ld)Ju>j v_suJI Ao>Ldl i-SJuo ^jJLc JuoXsO TCPJI 3I UDP Jl J3S3J3JJ (Jjj AJLdLojoJI 
i jd\J StreamJI oLoao />Ijco_juJ v_s\d> c>3*dl JjlJ ajoJo J*a9l ol d x5*>l A^o> i j J o 03^11 
JJ-Z53JI p £.ju \) Stream J JjoJI aJLxc ps ._o \) UDPJI J3S3J3JJ ot J^ajJI 1 jjo 

Jl Jxxc ojo o^ouj oJ AJbJI odd> Id d Delivered on Sequence ua-AjJI ^3 
J_^ujl lsJI u*OjJI ^3 Fragments Jl J3-03 Buffer JU Fragmentation 

JU 1500 KB v^3 Packet JU Ethernet Jl oU^juuv jlAoJI ,_jJI ^3^3 qJLc 
v_soJI3 AjjjuJI oLAiJI ^j^xaj v_sOjJ t _sJI LJU v_93juj Al5JjjuoJI ojoi> J^J3 _vj>I 3JI Packet 
FI.323 JjjJI vs^-jujI l^ju03 Stream J 03^JI Jjo pjj i_so>3 UDP Jl J3S3J3JJ t.sJc juxiszj 
1 _J_qJ jup LoJulC JJJ 1 oLoloJI odd) ^jJO asl 0*0 03JI p£.xj /J < LqjL«jj 13JI3 
U_Ji LoJ TCP Jl J3S3J3JJ />ljOtOuul i jjo LJ ju\) Stream J p>\ ^^Jl jl^> o>3^ 

Broadcasting Jl 3 IP Multicasting Jl ps .ju \J cols UbLuj 

vJ3^uu Lois UDP Jl oLaxd U jj 9 Lo lols Packets Jl Aj3^c pi j Network Layer Jl -3 
Multicasting oJI 0LC3JOJX03 Broadcasting s^diJI ovJI 0^0 

3I Ethernet Jl />ljctOuuU cl3^uu JLujjVs jujuo Data Link Layer Jl _ 4 
LaLuj L^jjSi LoJ oJJJjjuo ^_ l J\l Ethernet Jl i^jJL^ oLoxcdl pi+juj AJbJI odd) v_s^3 6 >f-P 

1500 KB Jl j3boj \) ol Frame Jl p>l> Aj03Jl>joj 

A93 Ia> 6 jjj£ JdJI aJLx£ cUI o-juo a 9 Sr soJI JJLduoJI LslJo Physical Layer Jl ^ _ 5 
03^>3 jjjo ju\) JJjJ JLujjJI cUI Bits Jl t>xs2j gj-AA a9 3I 3I v_*jljuJ Delay 

.JLujjJI cLjI CjJuO Jl 9 v_svjJI3 JJLduoJI Odd) JJJ guox^xJI aCAJ 0J3J3J3JJ 

Data Link Layer Jl ^ Physical Layer Jl ajlJo v>o Bits Jl JjLloJI vJjJxJI J^douuu 
3d) 03SJ a 9 Packets Jl J^douajo ols aJU-aJI odd) cUI ^3 Network Layer Jl pj 0^3 
A_C3ja_>io jjjo O3JJ A9 3I Unicast CxJI iusJ-jujI oU AJL> ^p 9 v_sOOxoJI ^yxdudJI 
JJJ Broadcast J l^J JLujjJI A* sA^I ASuudJI 0 jo^ 3I Multicast JLdouuJI 

Jl JjdOuuu v_93juj v_soJI A^odU AjXszjo >A JLjujjJI A^j> uls Ac3joo%jo i jjo c_pr *^3^ AJL> v_s^ 
L^JJ 3I Packets Jl qjo oJLdjOjjl cI3juj ^pisuo j+l cob AJbJI odd) v_s^3 Packets 
cUI JJLddoJI 0^0 jjiSJl a9 JJJ J-juj^oJI ,jJI Acknowledgment sst JLuujI pij oJ 
03^JI J3^>3 ujuljuuu d 9 $-uj 13JI3 J^ujjjJI Packets Jl v jjo tp> £.La 1 ^°° AJL>jjJI °J^ 
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l _yJLc\l| cLfijJaJI 0J3S3J3JJ t.yJLc AJbdl OJaii v_s ^9 iloJLcJI Oc£u i_ 93 _juj laJc>3 < gJaiija) JJLuuu 
oAii J 5 0I9 TCP Jl />jj^juuu J^^uuuoJ^ J^ujjjoJI ol 5 lil5 Transport Layer La> ^5^3 
\)l ,Jj> Jl>3j \J Cj-O* UDP Jl />Jd«JLjijju £03^ v_S \5 i jj(xSb AJJLuuuoJI J^eJ i_ 93 _juj J 5 LuuuoJI 
^loo 03JU3 £lJ_c ( Jjuj_)I sSjJI v-jujjj a Packets Jl A9U J3*£>3 qjx^x> jjLuuuo ^Lao £,LjL 

.jJuujjoJI Packets Jl o* cIpJ 


Ethernet ASL_juj />ljc«j_»jjb JLujjJI clLl Packets Jl i^zzj £,L-o £c<Jbxc q^>^j v_sJUI J5LuuJI 
:o3-aJI ^ sJoaJ ^9-^ louo UDP IP Multicasting 3 Wireless LAN 



How to Create a Voice Chat Throw Dot Net Using Unmanaqed API's :UU 

: Functions 


^V < 03^x11 u&jS-s JolaJI obJbxC i jjo lSI /xC JO /J oO O3JJI ul 9 lajLuu LU lo^ 

Jj^juoJI />LLu §jo v_sob v_ssjJI3 DLI_II oLaJLo Ac3jcoto /JjdtOjjl jjjo ju\J obJbxsdl ojuS> 

/>LLu ^s3 Multimedia Jl JjLuj 3 §/> JolsJU ^bJl3 < >^iJI winmm.dll vjJLo 1^03 
U393 _>SJIjoJI jjS, 03^oJI JolaJJ Methods Jl i >o <3x30^0 oJjoJI I joi> />XJU < Jj^ZjuulJI 

: vj\oi Method Jl o_\j3>3 lS>>I 6>o £U3>c /L o-°3 Byte Array Buffer qopLg 

Sound Jl §jo AJ03JJJ0JI3 JL>^\)I 6j^>l ^ Jl^LjLajUU ^13 wavelnGetNumDevs 

lsI jj>b J3 Card 

Byte Array Jbo\)l 0- 0 oij^l BitsJI wavelnAddBuffer 

:v^3 ol>i-vo3jb A)\b MethodJI ojui> _\>b3 Buffer 

waveInAddBuffer(IntPtr hwi, ref WaveHdr pwh, int cbwh) 


{jj.jztJ §93joJ Reference v_sobJI ^3 3 o^loo-l />j 0JJI3 JL>:>\JI J3\U jjjoj 

^JLljuUUO^ Jl Buffer Jl /ct> oJLJI ^3 Buffer Jl 

.JboJI g/> JUxjJI J\Lcls eoiJ wavelnOpen 3 wavelnClose ^3i^oJI 
e>^3>3xJI ol jJujo3jU\ j>b3 Buffer Jl >^>3 wavelnPrepareHeader ^3joJI 

.wavelnAddBuffer ^9 

Jl JLujjI /xo ,_so> Buffer Jl A42J asj I^LcaoujI ^3 wavelnUnprepareHeader :>3JooJI 

.i_s_/>l 6 jx> tuijLSiJ JjlszoujMJ qzjjJu /J QJ03 Buffer 
js^ 4_sJI Buffer Jb ^LsJI PointerJI ^30 t^jV wavelnReset ^3 LjoJI 
.u393^5bLoJI 0- 0 JL>iJI sJb>^ -JVLcIs Iju wavelnStop ^3 LjoJI 3 wavelnStart ^3 LjoJI 
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: v_svJU lo>^3 Dlllmport V3I lg Jlijs&j />^su 03-vJI v_s\ s ^3jjjoJI ojuS> />Ijc*iLjuj\)3 

C#: 

[Dlllmport(winmm.dll)] 

public static extern int waveInGetNumDevs(); 

[Dlllmport(winmm.dll)] 

public static extern int waveInAddBuffer(IntPtr hwi, ref WaveHdr pwh, int cbwh); 
[Dlllmport(winmm.dll)] 

public static extern int waveInClose(IntPtr hwi); 

[Dlllmport(winmm.dll)] 

public static extern int waveInOpen(out IntPtr phwi, int uDevicelD, WaveFormat 
IpFormat, WaveDelegate dwCallback, int dwlnstance, int dwFlags); 
[Dlllmport(winmm.dll)] 

public static extern int waveInPreparehleader(IntPtr hWaveln, ref WaveFIdr 
IpWavelnFIdr, int uSize); 

[Dlllmport(winmm.dll)] 

public static extern int waveInllnprepareFleader(IntPtr hWaveln, ref WaveFIdr 
IpWavelnFIdr, int uSize); 

[Dlllmport(winmm.dll)] 

public static extern int waveInReset(IntPtr hwi); 

[Dlllmport(winmm.dll)] 

public static extern int waveInStart(IntPtr hwi); 

[Dlllmport(winmm.dll)] 

public static extern int waveInStop(IntPtr hwi); 

VB.NET 

<DIIImport(winmm.dll)> _ 

Public Shared Function waveInGetNumDevs() As Integer 
End Function 

<DIIImport(winmm.dll)> _ 

Public Shared Function waveInAddBuffer(ByVal hwi As IntPtr, ByRef pwh As 
WaveFIdr, ByVal cbwh As Integer) As Integer 
End Function 

<DIIImport(winmm.dll)> _ 

Public Shared Function waveInClose(ByVal hwi As IntPtr) As Integer 
End Function 

<DIIImport(winmm.dll)> _ 

Public Shared Function waveInOpen(<System.Runtime.InteropServices.Out()> 
ByRef phwi As IntPtr, ByVal uDevicelD As Integer, ByVal IpFormat As WaveFormat, 
ByVal dwCallback As WaveDelegate, ByVal dwlnstance As Integer, ByVal dwFlags 
As Integer) As Integer 
End Function 

<DIIImport(winmm.dll)> _ 

Public Shared Function waveInPrepareFleader(ByVal hWaveln As IntPtr, ByRef 
IpWavelnFIdr As WaveFIdr, ByVal uSize As Integer) As Integer 
End Function 

<DIIImport(winmm.dll)> _ 

Public Shared Function waveInllnprepareFleader(ByVal hWaveln As IntPtr, ByRef 
IpWavelnFIdr As WaveFIdr, ByVal uSize As Integer) As Integer 
End Function 

<DIIImport(winmm.dll)> _ 

Public Shared Function waveInReset( ByVal hwi As IntPtr) As Integer 
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End Function 

<DIIImport(winmm.dll)> _ 

Public Shared Function waveInStart(ByVal hwi As IntPtr) As Integer 
End Function 

<DIIImport(winmm.dll)> _ 

Public Shared Function waveInStop(ByVal hwi As IntPtr) As Integer 
End Function 

,jJI Byte Array Buffer Jl AJUI MethodsJI Acsjo^jo />JCfcjLjuUU V_93juJ 1x5^3 

: gl_>>\JI tjd-C c ^>C-3 i_Sjj>l 6jjo 

C#1 

[Dlllmport(winmm.dll)] 

public static extern int waveOutGetNumDevs(); 

[Dlllmport(winmm.dll)] 

public static extern int waveOutPrepareHeader(IntPtr hWaveOut, ref WaveHdr 
IpWaveOutHdr, int uSize); 

[Dlllmport(winmm.dll)] 

public static extern int waveOutUnprepareHeader(IntPtr hWaveOut, ref WaveHdr 
IpWaveOutHdr, int uSize); 

[Dlllmport(winmm.dll)] 

public static extern int waveOutWrite(IntPtr hWaveOut, ref WaveHdr 
IpWaveOutHdr, int uSize); 

[Dlllmport(winmm.dll)] 

public static extern int waveOutOpen(out IntPtr hWaveOut, int uDevicelD, 
WaveFormat IpFormat, WaveDelegate dwCallback, int dwlnstance, int dwFlags); 
[Dlllmport(winmm.dll)] 

public static extern int waveOutReset(IntPtr hWaveOut); 

[Dlllmport(mmdll)] 

public static extern int waveOutClose(IntPtr hWaveOut); 

[Dlllmport(mmdll)] 

public static extern int waveOutPause(IntPtr hWaveOut); 

[Dlllmport(mmdll)] 

public static extern int waveOutRestart(IntPtr hWaveOut); 

[Dlllmport(mmdll)] 

public static extern int waveOutGetPosition(IntPtr hWaveOut, out int Iplnfo, int 
uSize); 

[Dlllmport(mmdll)] 

public static extern int waveOutSetVolume(IntPtr hWaveOut, int dwVolume); 
[Dlllmport(mmdll)] 

public static extern int waveOutGetVolume(IntPtr hWaveOut, out int dwVolume); 

VB.NET 

<DIIImport(winmm.dll)> _ 

Public Shared Function waveOutGetNumDevs() As Integer 
End Function 

<DIIImport(winmm.dll)> _ 

Public Shared Function waveOutPrepareHeader(ByVal hWaveOut As IntPtr, ByRef 
IpWaveOutHdr As WaveHdr, ByVal uSize As Integer) As Integer 
End Function 

<DIIImport(winmm.dll)> _ 
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Public Shared Function waveOutUnprepareHeader(ByVal hWaveOut As IntPtr, 
ByRef IpWaveOutHdr As WaveHdr, ByVal uSize As Integer) As Integer 
End Function 

<DIIImport(winmm.dll)> _ 

Public Shared Function waveOutWrite(ByVal hWaveOut As IntPtr, ByRef 
IpWaveOutFIdr As WaveFIdr, ByVal uSize As Integer) As Integer 
End Function 

<DIIImport(winmm.dll)> _ 

Public Shared Function waveOutOpen(<System.Runtime.InteropServices.Out()> 
ByRef hWaveOut As IntPtr, ByVal uDevicelD As Integer, ByVal IpFormat As 
WaveFormat, ByVal dwCallback As WaveDelegate, ByVal dwlnstance As Integer, 
ByVal dwFlags As Integer) As Integer 
End Function 

<DIIImport(winmm.dll)> _ 

Public Shared Function waveOutReset( ByVal hWaveOut As IntPtr) As Integer 
End Function 
<DIIImport(mmdll)> _ 

Public Shared Function waveOutClose(ByVal hWaveOut As IntPtr) As Integer 
End Function 
<DIIImport(mmdll)> _ 

Public Shared Function waveOutPause(ByVal hWaveOut As IntPtr) As Integer 
End Function 
<DIIImport(mmdll)> _ 

Public Shared Function waveOutRestart(ByVal hWaveOut As IntPtr) As Integer 
End Function 
<DIIImport(mmdll)> _ 

Public Shared Function waveOutGetPosition(ByVal hWaveOut As IntPtr, 

<System.Runtime.InteropServices.Out()> ByRef Iplnfo As Integer, ByVal uSize As 
Integer) As Integer 
End Function 
<DIIImport(mmdll)> _ 

Public Shared Function waveOutSetVolume(ByVal hWaveOut As IntPtr, ByVal 
dwVolume As Integer) As Integer 
End Function 
<DIIImport(mmdll)> _ 

Public Shared Function waveOutGetVolume(ByVal hWaveOut As IntPtr, 

<System.Runtime.InteropServices.Out()> ByRef dwVolume As Integer) As Integer 
End Function 


I V_s0 Ljj I JlZ^jLjuUU Buffer Jl oU 3 jj%jo o-° 


C#: 

using System; 

using System.Runtime.InteropServices; 
using System.Resources; 
using System. 10 ; 

public class Winmm 

{ 

public const UInt 32 SND_ASYNC = 1 ; 
public const UInt 32 SND_MEMORY = 4 ; 
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[DIIImport("Winmm.dll")] 

public static extern bool PlaySound(byte[] data, IntPtr hMod, 

UInt 32 dwFlags); 

public Winmm() 

{} 

public static void PlayWavResource(byte[] buffer) 

{ 

PlaySound(buffer, IntPtr.Zero, SND_ASYNC | SND_MEMORY); 

} 

} 

VB.NET 

Imports System 

Imports System.Runtime.InteropServices 
Imports System.Resources 
Imports System .10 

Public Class Winmm 

Public Const SND_ASYNC As UInt 32 = System.Convert.ToUInt 32 (l) 

Public Const SND_MEMORY As UInt 32 = System.Convert.ToUInt 32 ( 4 ) 

<DIIImport("Winmm.dll")> _ 

Public Shared Function PlaySound(ByVal data As Byte(), ByVal hMod As IntPtr, 
ByVal dwFlags As UInt 32 ) As Boolean 
End Function 
Public Sub NewQ 
End Sub 

Public Shared Sub PlayWavResource(ByVal buffer As Byte()) 

PlaySound(buffer, IntPtr.Zero, SND_ASYNC Or SND_MEMORY) 

End Sub 
End Class 

JLijj_Ajj\)l Method o-o /jJL-^uuuoJ^ Byte Buffer Jl PlaySound Method JU 

ivjJL Socket JL. A-obJI 


C#: 

void Voice_Receiver() 

{ 

UdpCIient sock = new UdpClient( 5020 ); 
sock.JoinMulticastGroup(IPAddress.Parse(multicast_IP.Text)); 
IPEndPoint iep = new IPEndPoint(IPAddress.Any, 0 ); 
byte[] voice_Come = sock.Receive(ref iep); 

Winmm. PlayWavResource(voice_Come); 
sock.CloseQ; 

} 

VB.NET 

Private Sub Voice_Receiver() 

Dim sock As UdpCIient = New UdpClient( 5020 ) 
sock.JoinMulticastGroup(IPAddress.Parse(multicast_IP.Text)) 
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Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Any, 0 ) 
Dim voice_Come As Byte() = sock.Receive(iep) 
Winmm.PlayWavResource(voice_Come) 
sock.Close() 

End Sub 


: Voice Chat System AjucwxII AidLaioJI r*uoL<iJ cLojuL cjuJI 

Ac^jcxjsjo v_sv 5 eS_>>l Ojjo pj Buffer Jl v_s\3 <^>^3 03^JI ,L>ldJI AJbxC u33_juj 
M icrosoft v A^jLsJI oIuSjOjjJI qjo ^jJiSJI v_sC3 OjoIjcG-jujI pj p+Misu 3^13 ClaSSesJI i jjo 
vjJLo vjvi Classes Jl oAd> ^3^3 Windows Sound Recorder 1^03 
< J^iaJI I Ad> oUlsJLo vjvi Classes Jl aAd> ob^to ^3^3 Voice Library suauuuu 

Classes Jl oAd^ 

c uj_p«j 3 03^1 JolaJU A^sLsJI Methods Jl A9IS §-031 ^jgguuju i_93_juj 3 Waveln Class 

Byte Array ^9 

pj Buffer Jl qjo v_so\JI 03^11 u&jszi qjojlAjuuuu <39-^2 WaveOut Clasas 
J^juuu c^> Stream ^1 03^1 <^jgg_uuu ^3^ eSjJl3 WaveStream Class 
Guj 03-JI v-5^-9 Aojlz^lGuuuoJI MemoryStream ^LLo^c ^luAul^ ^j^J-AjJI jj lc ^ULjujjI 
J3I gjl> J3I J>IjJI Stream Jl FifoStream :>3iuoJI 

winmm.dl gJLJU a^>IaJI Methods JU oU^s-JI A9l5 g^ 5 [^3 pjj^ WaveNative :>3iuoJI 

■ I-GJ LjuJ ld> Uv^S^J I 3 

CjuJI i_j3JLujI I_yj-C ljuOGS2X>3 JjjjJI AJLojJ UDP Jl J3S3J3JJ JLuoJI lAd> ^s 3 pJJzjLiuUU 
JLa\JI gjoljjjJ />LJI JSLaJI G35J u53uuu CJJJ3 Full Diplex Unicast Voice Chat System 

! <_sJL lo 5 


MainForm.es [Design] 



! JjliLoJI i_9jJoJI gjjolj^j 6j^> Ld>3 


MainForm.es [Design] 



Jl v_svS ciszjQj v_93uuj3 Voice.dll giLo us^9 AqjLuJI Classes Jl AJLuuuiSij p$sij i_99uuj3 
v_Sv_JI geoljjJI £jjaJ> v_S\S V-oJLoJI I Ad) /J-XAd-jujI gJojuuUU 1 _ s g >3 e-ob^JU A^>UJI References 
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Using Jl />ljctijujb >_ oJLoJI p^su^uj q-Jbxsdl cjui asj JL^uJI cuJLxc pj^Li-ujj 

I v_svJL IcxSg 

C#1 

using System.Net; 
using System.Net.Sockets; 
using System.Threading; 
using Voice; 

VB.NET 

Imports System.Net 
Imports System.Net.Sockets 
Imports System.Threading 
Imports Voice 

2^3 JgjjoU^jJI v_s\5 ^jojcsjLjuuu v_93juj sSjJl3 ThreadJ^ SocketJI p$su pj 
clJjjxsJI &Xcb i jjo I3 <_souuuj_>JI ClaSS Jl v_Qj_>S2J A su <J>I gjobjjJI AJju v_s^ 9 olflj^AiJI OAib 
v_s^9 \J 1_s^i>3 gpoljjjJI cLoJol julc Thread JI3 Socket Jl <Jj\Lcl ^jJLc o_>_\jjJI 

!v_sJL LoJ JUi p JJ3 i JLajJI gpobjj JjYlcI JulC 6>SljJI 


C#1 

public class Forml : System.Windows.Forms.Form 

{ 

private Socket socket; 
private Thread thread; 

VB.NET 

Public Class Forml : Inherits System.Windows.Forms.Form 
Private socket As Socket 
Private thread As Thread 

03-^JI J-^juuu /yM .juj sSjJI BufferJI AdjLuuJI ClassesJI po Object <^ 9 pa 

SocketJI { jj 3 /JLljuuuoJI 03-^JI (>3>c pj-t-uu i_sjJI BufferJ^ cJLjujjI aI^joJI 


C#: 

private WaveOutPlayer m_Player; 
private WavelnRecorder m_Recorder; 
private FifoStream m_Fifo = new FifoStream(); 
private byte[] m_PlayBuffer; 
private byte[] m_RecBuffer; 

VB.NET 

Private m_Player As WaveOutPlayer 
Private m_Recorder As WavelnRecorder 
Private m_Fifo As FifoStream = New FifoStream 
Private m_PlayBuffer As Byte() 

Private m_RecBuffer As Byte() 

vjj^JI AiLSb ps Form Load Event Jl 3I gujb^Jb ^LsJI Constructure Jl p-s 

Thread JI3 Socket Jb ^UJI 
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C#1 

public Forml() 

{ 

InitializeComponentQ; 

socket = new Socket(AddressFamily.InterNetwork, SocketType.Dgram, 
ProtocolType.Udp); 

thread = new Thread(new ThreadStart(Voice_In)); 

} 

VB.NET 

socket = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, 
ProtocolType.Udp) 

thread = New Thread(AddressOf Voice_In) 

SocketJI qj> 03-aJI JL I u^bdl :>s 5 JI Voice_In MethodJI ^3 <-s.s -»■> 

IcxSg 

C#1 

private void Voice_In() 

{ 

byte[] br; 

socket. Bind(new IPEndPoint(IPAddress.Any, 5020 )); 

while (true) 

{ 

br = new byte[ 16384 ]; 
socket. Receive(br); 
m_Fifo.Write(br, 0 , br.Length); 

} 

} 

VB.NET 

Private Sub Voice_In() 

Dim br As Byte() 

socket. Bind(New IPEndPoint(IPAddress.Any, 5020 )) 

Do While True 

br = New Byte( 16383 ) {} 
socket. Receive(br) 
m_Fifo.Write(br, 0 , br.Length) 

Loop 
End Sub 

o^^aJI jjjoJ /xj Receive MethodJI Ai jljuJlI I {j-O I J LlAjl-juJ I A4 

.v_s>>l 6 jjo ^Jl />ju s m_Fifo.Write Method Jl ^jJI J-ALjljuuuoJI 

>>^ll i_yJI 03^x11 />3 qJ I MethodJI LoI 
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C#1 

private void Voice_Out(IntPtr data, int size) 

{ 

//for Recorder 

if (m_RecBuffer == null || m_RecBuffer.Length < size) 
m_RecBuffer = new byte[size]; 

System.Runtime.InteropServices.Marshal.Copy(data, m_RecBuffer, 0 , size); 
//Microphone = = > data = = > m_RecBuffer ==> m_Fifo 
socket.SendTo(m_RecBuffer, new 
IPEndPoint(IPAddress.Parse(Peer_IP.Text), 5030 )); 

} 

VB.NET 

Private Sub Voice_Out)ByVal data As IntPtr <ByVal size As Integer( 

'for Recorder 

If m_RecBuffer Is Nothing OrElse m_RecBuffer.Length < size Then 
m_RecBuffer = New Byte)size - 1 {}( 

End If 

System.Runtime.InteropServices.Marshal.Copy(data, m_RecBuffer, 0 , size( 
'Microphone = = > data = = > m_RecBuffer = = > m_Fifo 
socket.SendTo(m_RecBuffer .New 
IPEndPoint(IPAddress.Parse(Peer_IP.Text), 5030 (( 

End Sub 

J- jJLLjuUU^ J-juj jj Full Duplex gpobjj JjixC lojl Lo lil 4 JL> v_s\S ‘Cii 

v_ 9>LJI JLijj_uj\IJ LS_>>i3 JLujjYU A>-l3 Tow Ports j ,_jJI Lois 053JI 
... cojJ JL-qj-jijj^I Port >dL-d JLujj\)I Port o^j 

■ *-cJ LJI ^3 jjjoJ I JuLflju jyJj c JuJ I jj i_s \9 


C#1 

private void Start() 

{ 

Stop(); 

try 

{ 

WaveFormat fmt = new WaveFormat( 44100 , 16 , 2 ); 
m_Player = new WaveOutPlayer(-l, fmt, 16384 , 3 , new 
BufferFillEventHandler(Filler)); 

m_Recorder = new WaveInRecorder(-l, fmt, 16384 , 3 , new 
BufferDoneEventHandler(Voice_Out)); 

} 

catch 

{ 

Stop(); 

throw; 

} 

} 
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VB.NET 

Private Sub Start() 

Stop() 

Try 

Dim fmt As WaveFormat = New WaveFormat(44100, 16, 2) 
m_Player = New WaveOutPlayer(-l, fmt, 16384, 3, New 
BufferFillEventFlandler(AddressOf Filler)) 

m_Recorder = New WaveInRecorder(-l, fmt, 16384, 3, New 
BufferDoneEventFlandler(AddressOf Voice_Out)) 

Catch 

Stop() 

Throw 
End Try 
End Sub 


.AJLJI JulAJu v_9Lqj\JI jj 


lot 


C#1 

private void Stop() 

{ 

if (m_Player != null) 
try 

{ 

m_Player.Dispose(); 

} 

finally 

{ 

m_Player = null; 

} 

if (m_Recorder != null) 
try 
{ 

m_Recorder.Dispose(); 

} 

finally 

{ 

m_Recorder = null; 

} 

m_Fifo.Flush(); // clear all pending data 

} 

VB.NET 

Private Sub [Stop]() 

If Not m_Player Is Nothing Then 
Try 

m_Player.Dispose() 

Finally 

m_Player = Nothing 
End Try 
End If 

If Not m_Recorder Is Nothing Then 


139 





Try 

m_Recorder. Dispose() 

Finally 

m_Recorder = Nothing 
End Try 
End If 

m_Fifo.Flush() ' clear all pending data 
End Sub 


:<^Io_juuJI i_sJ-c Socket /Jj^uuuoJ^ Voice Buffer Jl /> 9 & 


C#: 

private void Filler(IntPtr data, int size) 

{ 

if (m_PlayBuffer == null || m_PlayBuffer. Length < size) 
m_PlayBuffer = new byte[size]; 
if (m_Fifo.Length >= size) 
m_Fifo.Read(m_PlayBuffer, 0, size); 
else 

for (int i = 0; i < m_PlayBuffer.Length; i++) 
m_PlayBuffer[i] = 0; 

System.Runtime.InteropServices.Marshal.Copy(m_PlayBuffer, 0, data, size); 

// m_Fifo = = > m_PlayBuffer==> data ==> Speakers 

} 

VB.NET 

Private Sub Filler(ByVal data As IntPtr, ByVal size As Integer) 

If m_PlayBuffer Is Nothing OrElse m_PlayBuffer. Length < size Then 
m_PlayBuffer = New Byte(size - 1) {} 

End If 

If m_Fifo. Length >= size Then 

m_Fifo. Read(m_PlayBuffer, 0, size) 

Else 

Dim i As Integer = 0 
Do While i < m_PlayBuffer.Length 
m_PlayBuffer(i) = 0 

i += 1 
Loop 
End If 

System.Runtime.InteropServices.Marshal.Copy(m_PlayBuffer, 0, data, size) 
' m_Fifo = = > m_PlayBuffer==> data = = > Speakers 
End Sub 
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Testing TCP,UDP and Thinking in SCTP to Transfer Voice Throw :\su \j 

: Networks 


qJUl oUjjjslJI qsLdU />$su Multicast Half Duplex Voice Chat System gjobjj cLioV 
2 > 5 j >3 v _sJLc xc^jsu v_ 93 juj 3 < ^LuuJI J-^iaJI ^_s3 LiL^-^juj v_suJl 3 Multicasting Jb AZ 5 L 5 JI 3 
QjS gjoJ_uju Cju^> i_JUaJ >>l3 03 ^JI c J\l> qjo />Jj j-iobtoJU Jt>l3 i jj_=ejob > i 

:v_sJLJI J^LuuJI v_S^9 lo^g _/sJLs 2 joJI Cj^LsjoJ 


By FADI Abdel-Qader 




omB m i M s sdjii s ti!Mm ... a jqi 


Stait Receiving My Lecture Voice 


Multicast Students 224.100.0.1 Group 


Half Duplex Multicast Voice Conferencing System- For Class Room That 
uses a Peer-to-Peer Wireless Network 


jJJi pjj JLuU_;\)| JulC JoiiS Cv_SouUU ^3SJI v_aJL_itJ \) (/xIsjoJI gljobjj) JLuJjVI 2-objJ v-SvS 

: Sr ?JL b>53 IP Multicasting Jl />L J^jLjuU Li 


C#: 

private void Voice_Out(IntPtr data, int size) 

{ 

//for Recorder 

if (m_RecBuffer == null || m_RecBuffer.Length < size) 
m_RecBuffer = new byte[size]; 

System.Runtime.InteropServices.Marshal.Copy(data, m_RecBuffer, 0, size); 
//Microphone = = > data ==> m_RecBuffer ==> m_Fifo 
socket.SendTo(m_RecBuffer, new IPEndPoint(IPAddress.Parse("224.0.1.7"), 
5020)); 

} 
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VB.NET 

Private Sub Voice_Out(ByVal data As IntPtr, ByVal size As Integer) 

'for Recorder 

If m_RecBuffer Is Nothing OrElse m_RecBuffer. Length < size Then 
m_RecBuffer = New Byte(size - 1) {} 

End If 

System.Runtime.InteropServices.Marshal.Copy(data, m_RecBuffer, 0, size) 
'Microphone ==> data ==> m_RecBuffer = = > m_Fifo 
socket.SendTo(m_RecBuffer, New IPEndPoint(IPAddress.Parse("224.0.1.7"), 
5020)) 

End Sub 

/xJ vjj03 IP Multicast Groupjl i_sJI /jlowZxiJL />9su J-il&j-aajuoJI JoJI v_5\3 

!v_sJL Lcx53 

C#1 

private void Voice_In() 

{ 

UdpCIient sock = new UdpClient(5000); 
sock.JoinMulticastGroup(IPAddress.Parse("224.0.1.7")); 

IPEndPoint iep = new IPEndPoint(IPAddress.Any,0); 
while (true) 

{ 

m_Fifo.Write(sock.Receive(ref iep), 0,sock.Receive(ref iep).Length); 

} 

} 

VB.NET 

Private Sub Voice_In() 

Dim sock As UdpCIient = New UdpClient(5000) 
sock.JoinMulticastGroup(IPAddress.Parse("224.0.1.7")) 

Dim iep As IPEndPoint = New IPEndPoint(IPAddress.Any, 0) 

Do While True 

m_Fifo.Write(sock.Receive(iep), 0, sock.Receive(iep).Length) 

Loop 
End Sub 


... gpob^jJI Isu u\ll 

J3S3J3JJ />Iju*LUujI 4JL> v_s^9 <*j\ 3^3 2-Z5I3 ^juljuuJI Ju5Lj 3 lilu>l gJoiijj A9 C>3^JI ul 
a>I3 sju^juuu a 9 Ijui3 AJI3_Lulc JLuujVI sJLxc 0I9 Multicasting JI3 UDP Jl 

lsI />xaj \) UDP Jl J3S3J3JJ ul L0U3 6 jji9 ciSuLJuuJI jjlc cLLujjjoJI PacketsJI ,jjo 3I 

jJjO jiiS\ 3I Jl>I3 u>3Jl> ulS v_*jjjjJI ^^Jx Jj-^JI 0LJL0X3 J3^>3JI 1 jjO I 0LL0X 1 jjO 

... J-O I JJLuuuoJI OJoJ) 

3jJ> J3S3J3JJJI Iol lx>\) 1 TCP J3S3J3JJ />Ijuu-jujL JLujjJI AJLox u\JI Lxi 
A9Lk3 \)L J3^>3JI 1 jjo oLJLox /xjj Lcx5 Oriented Protocol c c>3jo 

Ijlq> jjloj Lo 3^3 Stream Jl u>3JLuul /jIjuu-jujL jjj^jJoJI ^jj JLzjjJI />xaj l _$JI 
cLLuj^joJI oLLJI /oejxj x>\JI i_sJI j]cu£u ^ ccoIjuu^ujI 4JL> v_s\S LuI il c^^x 1 jx J3S3J3JJJI 
l-Sj_>l 6jX> aJ^juj ^_sJI AsLzAJL aJ^juj JSL l^J Fragmentation Jjox ^ 

... Delivered Out on Sequence Jl J5Liuo o-o 09^9 
\ v_sJL LoJ qla>3 1 _9 jLuuJI Socket Jl 9^> ojju&j LJx Lo J5 
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C#1 

socket = new Socket(AddressFamily.InterNetwork, SocketType.Stream , 
ProtocolType.Tcp); 

VB.NET 

socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, 
ProtocolType.Tcp) 

Lx5^3 Network Stream ClassJI />\. I Uul5Loul9 JLujjVI ^cJLo^ to I 


C#: 

private void Voice_Out(IntPtr data, int size) 

{ 

//for Recorder 

if (m_RecBuffer == null || m_RecBuffer.Length < size) 
m_RecBuffer = new byte[size]; 

System.Runtime.InteropServices.Marshal.Copy(data, m_RecBuffer, 0, size); 
//Microphone = = > data = = > m_RecBuffer ==> m_Fifo 
sock.Connect(new IPEndPoint(IPAddress.Parse("10.0.0.10"),5020)); 
NetworkStream ns = new NetworkStream (socket); 
ns.Write (m_RecBuffer,0,m_RecBuffer.Length); 

} 

VB.NET 

Private Sub Voice_Out(ByVal data As IntPtr, ByVal size As Integer) 

'for Recorder 

If m_RecBuffer Is Nothing OrElse m_RecBuffer. Length < size Then 
m_RecBuffer = New Byte(size - 1) {} 

End If 

System.Runtime.InteropServices.Marshal.Copy(data, m_RecBuffer, 0, size) 
'Microphone ==> data ==> m_RecBuffer = = > m_Fifo 
sock.Connect(New IPEndPoint(IPAddress.Parse("10.0.0.10"), 5020)) 

Dim ns As NetworkStream = New NetworkStream (socket) 
ns.Write(m_RecBuffer, 0, m_RecBuffer. Length) 

End Sub 

:JUi^uu\LJ ^>>1 e>jjo Network Stream Jl />l. J jl&jLjuUI joJI ^9>JI 


C#1 

private void Voice_In() 

{ 

Socket sock = new Socket(AddressFamily.InterNetwork, SocketType.Stream 
, ProtocolType.Tcp); 

sock.Bind(new IPEndPoint(IPAddress.Parse("10.0.0.10"),5020)); 
NetworkStream ns = new NetworkStream (sock); 
while (true){ 

byte[] buffer = new byte [16384]; 
ns.Read (buffer,0,16384); 
m_Fifo.Write(buffer, 0, buffer.Length); } 

} 
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VB.NET 

Private Sub Voice_In() 

Dim sock As Socket = New Socket(AddressFamily.InterNetwork, 

SocketType.Stream, ProtocolType.Tcp) 

sock.Bind(New IPEndPoint(IPAddress.Parse(" 10 . 0 . 0 . 10 "), 5020 )) 

Dim ns As NetworkStream = New NetworkStream(sock) 

Do While True 

Dim buffer As Byte() = New Byte( 16383 ) {} 
ns.Read(buffer, 0 , 16384 ) 
m_Fifo.Write(buffer, 0 , buffer. Length) 

Loop 
End Sub 

AlSLuuuoS 03-^S v_s ^9 sJoJjj tSl Jl>3j \J a! loJ OjLouo ouuuS O^^JI A 9 :> ul 
3I Multicastings ^s 3 AsJLJI olplSLoS o-id) 6ilflji_juj\JI gJojujuu ^ IS 

... BroadcastingJI 

/>Ijuu_jujI 3I UDPJI J353J3JJ §j 0 AfljLuuJI jjjLszjoJI />Ijuu_ujI Lol 3ji Jl^>3JI Jj>JI 3 
J3S3J3JJ Microsoft /xcjj Long Horn jjjo cL^jo\)I l j_od jlbujS 3I TCPJI 

... SCTPJI 

^AKJLuoJI Jji) J3S3J3JJJI l-l£j JuJuS 3^1 to CAJI AjuULflj sSjJI JI^juuJI 
qjo ilflj_Ajj| sSjJI J3S3J3JJJI lAti) AjLkao ul Cj+> AlSLuuuoJI J^> Jt 9 fisu AbLuuu J 5 L iSiP'JI 
o\JI LujJ i>| Multicastings oLJLxsd UDPJI Jx9 0-0 />-viioS /x^jJI 3 TCPJI olj^ 
,_sJI A9 Ld\)L aJ3^juj JJJ 6ilc|3 FragmentationJI Jjo^c .^s Lp_Sc -uxiszj A33 A^tjuo 
Ia^j AzjbJI HeaderJI A^ ^ 2-S3 1^3 Delivered on Sequence AJLxc axc:. 

1 v_svJLJI J 5 SJI i_sJI >Lul J3S3J3JJJI 


32 Bit 




Source Port 

Destination Port 


Verification Tag 

SC TP 

Common 

Checksum 


Type 

Flags 

Length 

Chunk 1 

User Data 


• 

• 

• 

Type 

Flags 

Length 


User Data 

Chunk N 
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Direct How to Create a Voice Conference System Using Microsoft :Luuuol> 

: Play 9 


Direct Play 9 v ^bdl un 9 03-aJI JjlJU Iju> olszJI j oLii Microsoft oaxc:> 
v_9a^JI 0LS3 DirectXJI o-o c>> 3^3 DirectPlay Transport Protocol Lzul 1 _ S uxjuuu3 

£>jui> juoas^ 1 Network GarnesJI IoA) v^JJI a>3jo jLsjo ^>3 ^LbJ 0- 0 

AJbxC 3 ^> L^JuO v_ 9 Jl^JI ulS Ca<j> JLj-juuuO Azxbdl jjjIszjoJI i jjO AC 3 jOJ%jO AaSuoJI 

TCP/IPJI 3^i /XjC^EjLjijUUoJI J3S3J3JJJI ulS CI3JUJ 3 A&JLjSjoJI 0I4JI &JJ&> OJ%J AiSuOuO JlzljJI 
icupto^jjl ^so-I3jJI i jjo ol 9 \Lt>l wsl U3J03 cuSuouo JL^j\JI AJLxi: 0I5 Novell ty^UJI IPX 3I 

:DirectPlay Transport Protocol Jl olj_pO /^l 0-°3 
Sy^oJI o^sJU J^3JI v _9^jj=tjJI AJLxc /x^aj caj> Reliable delivery of messages - 
gujs^JI s^jJI ^3 J^saII />a:ju «a^> Sequential a delivery of messages - 
q^joj2>\)l ^jJLc cLu JLujjMJ 0U3J3I &a>s AJLxc /y£.ju o^> Send prioritization - 
< Stream DataJ JjlJI sJLo^ ,acjj Streaming Session - 

oJL> jiS3 i _>kLijuoJI SCTPJI J3S3J3JJ />^cjJ JJlju^ J3JLSJI oAoi Microsoft ouoj 3 
Jj>3 UDPJI 3I TCPJI J353J3JJ j+c 03^JI JjjjJ jj^oejOjjjoJI qj>I3j ojl 5 v_saJI o\IJLuuuoJI 
Direct Play Jl ^9^9 < Transport Layer Jl AaJs o-o-z> >>l vs-J-^l £ J^> 

! Igjojiil u-09 Classesjl i jjo AocaAo AC3JOJS10 i_sJ-C 


\]cu Jl qJjgg; ^bJIg Connect Classes Jl : \)gl 
« >>\)l vj^kJI §jo JIa;\JI cLiul jolc /xjceAuoj caj> Address , Guido , Peer Classes Jl 
gjjoU^j JJJ Hash Code J1J3A >>\JI gpoljjjJI j+t-ajJ A&jjJo DirectPlay Jl^lLjuUU^ 
Jl i_jJ! J-'LqjoJI jlp-<JI 0I3AC3 JJ3J0JI j>3SJI jjjjyj /XA3 Guido Class Jl /xIjceAjujL jJJ j /xa 3 
v_sx5 Socket Jl /xIjceAjujL k^JI AjJLxsJ j+S J^Lla aJLo^JI oa^ Peer Class 

;JLucxS v_svJL LcxS L^joIjceAjuuI /XA3 1 TCP/IP J3S3J3JJ 


C#: 

using Microsoft.DirectX.DirectPlay; 


Address hostAddress = new Address(); 
hostAddress.ServiceProvider = Address.ServiceProviderTcpIp; 

// Select TCP/IP service provider 

ApplicationDescription dpApp = new ApplicationDescription(); 
appGuid = Guid.NewGuid(); // Create a GUID for the application 
dpApp.GuidApplication = appGuid; // Set the application GUID 
dpApp.SessionName = "My Session"; // Optional Session Name 

myPeer.Host(dpApp, hostAddress); // Begin hosting 

VB.NET 

Imports Microsoft.DirectX.DirectPlay 


Private Address hostAddress = New Address() 

Private hostAddress.ServiceProvider = Address.ServiceProviderTcpIp 
1 Select TCP/IP service provider 
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Private dpApp As ApplicationDescription = New ApplicationDescription 
Private appGuid = Guid.NewGuid()' Create a GUID for the application 
Private dpApp.GuidApplication = appGuid ' Set the application GUID 
Private dpApp.SessionName = "My Session" ' Optional Session Name 
myPeer. Host(dpApp, hostAddress) ' Begin hosting 

gJcu_juuu l _s ^>3 IPX 3 ! TCP/IP ol5 JO Jl^LjLajUUoJ I ^SZajlJo j LjL>\i I Ls^jJo 

:v_sJL IcxS dJLIj> IP Address Jl 3 I JjUloJI oI 3 JlsJI s -03 

C#: 

using Microsoft.DirectX.DirectPlay; 

ServiceProviderInfo[] mySPInfo; 

Peer myPeer; 

System.Windows.Forms.ListBox listBoxl; 

ApplicationDescription myAppDesc; 


myPeer = new Peer(); 
hostAddress = new Address(); 
peerAddress = new Address(); 

// Set the service provider to TCP/IP 

peerAddress.ServiceProvider = Address.ServiceProviderTcpIp; 

hostAddress.ServiceProvider = Address.ServiceProviderTcpIp; 

// Attach FindHostResponseEventHandler to receive FindHostResponseMessages 
myPeer. Find HostResponse += new 
FindFlostResponseEventHandler(myEnumeratedFlosts); 

// Call FindHosts to start the enumeration 

myPeer.FindHosts(myAppDesc, hostAddress, peerAddress, null, 10, 0, 0, 
FindHostsFlags.OkToQueryForAddressing); 

VB.NET 

Imports Microsoft.DirectX.DirectPlay 
Private mySPInfo As ServiceProviderInfo() 

Private myPeer As Peer 

Private listBoxl As System.Windows.Forms.ListBox 
Private myAppDesc As ApplicationDescription 

Private myPeer = New Peer 
Private hostAddress = New Address 
Private peerAddress = New Address 

' Set the service provider to TCP/IP 

Private peerAddress.ServiceProvider = Address.ServiceProviderTcpIp 
Private hostAddress.ServiceProvider = Address.ServiceProviderTcpIp 
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' Attach FindHostResponseEventHandler to receive FindHostResponseMessages 
Private myPeer.FindFlostResponse += New 
FindFlostResponseEventFlandler(myEnumeratedFlosts) 

' Call FindFlosts to start the enumeration 

myPeer.Findhlosts(myAppDesc, hostAddress, peerAddress, Nothing, 10, 0, 0, 
FindFlostsFlags.OkToQueryForAddressing) 

v_s^9 i_9_>JaJI ^^Jl AV 3 TCP/IP 3^3 Jl^jljuULOs Jl J 3 S 3 J 3 jjJ I p Q J V_QJ_^S2J 
Ioj^JI aJjo^ /XJJ 3 < Peer ClassJI FindFlosts Method Jl 

IunJL L 0 J 3 Peer ClassJI o^> 6 ^ 3^13 Connect Method Jl />Ijc*^uuU o^Lo 


C#: 

using Microsoft.DirectX.DirectPlay; 

// Structure for FindFlostResponseMessages 
public struct Flostlnfo 
{ 

public ApplicationDescription appdesc; 
public Address deviceAddress; 
public Address senderAddress; 


} 


Peer myPeer = new Peer(); 

Flostlnfo hostinfo = new FlostInfo(); 

// The FindFlostResponseEventFlandler 

public void myEnumeratedFlosts(object 0 , FindFlostResponseEventArgs args) 

{ 

hostinfo.appdesc = args. Message. ApplicationDescription; 
hostinfo.deviceAddress = args. Message. AddressDevice; 
hostinfo.senderAddress = args. Message. AddressSender; 

} 

// Attach the ConnectCompleteEventFlandler to receive ConnectCompleteMessages 
myPeer.ConnectComplete += new 
ConnectCompleteEventFlandler(OnConnectComplete); 

// Call connect passing the Flost information returned in the FindFlostResponse 
event 

myPeer.Connect(hostinfo.appdesc, hostinfo.deviceAddress, 
hostinfo.senderAddress, null, ConnectFlags.OkToQueryForAddressing); 
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VB.NET 

Imports Microsoft.DirectX.DirectPlay 

' Structure for FindHostResponseMessages 

Public Structure Hostlnfo 

Public appdesc As ApplicationDescription 
Public deviceAddress As Address 
Public senderAddress As Address 

End Structure 

Private myPeer As Peer = New Peer 
Private hostinfo As Hostlnfo = New Hostlnfo 

' The FindHostResponseEventHandler 

Public Sub myEnumeratedHosts(ByVal o As Object, ByVal args As 
FindHostResponseEventArgs) 

hostinfo.appdesc = args.Message.ApplicationDescription 
hostinfo.deviceAddress = args. Message. AddressDevice 
hostinfo.senderAddress = args. Message. AddressSender 
End Sub 

' Attach the ConnectCompleteEventHandler to receive ConnectCompleteMessages 

Private myPeer.ConnectComplete += New 
ConnectCompleteEventHandler(OnConnectComplete) 

' Call connect passing the Host information returned in the FindHostResponse 
event 

myPeer.Connect(hostinfo.appdesc, hostinfo.deviceAddress, 

hostinfo.senderAddress, Nothing, ConnectFlags.OkToQueryForAddressing) 
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,^>^q , Lajg, UauuoJ oLJLxc , 11; ^bJIg Microsoft.DirectX.DirectPlav.Voice :Lub 

lOcuaJI 

:v_sOLJI JSLjJJU L^l>Jj3 J^-I^joJI i >o Ac.3jcoejoj o^^JI ( _/3_>c3 Jj^juuu AJjox. _>oJ 


© FADI Abdel-qader 




Sound Card - Voice in 
- Analog Microphone - 


Operating System 
- MS Windows - 


API 

- Application Program Interface - 


Microsoft.DirectX.DirectPlay .Voice 
To Record the Voice and Convert it to Stream 


Microsoft. DirectX. DirectPlay. Peer 
Connect to Remote Peer & Create a Session 


The Sender Uses a Voice. Client Class 
To Send a Voice to Remote Peer as Stream 

-1- 

I - 


7 

7 

7 

7 

7 

7 


o 

< IgJuO J5J QSlAo$]\ r-j-juUO’ Classes Jl i JjO AC3JOJSJO i_sJI IfjOouULQj i-93_juJ3 

: Sessions Jl a, big cLiuJ Server Jl vjjcu A^>bJI Classes Jl -1 

: JLio5 v_sJj loS />jctijuuu 3 Server Class 

C#: 

Server server = new Voice.Server(peerObject); 

VB.NET 

Dim server As Server = New Voice.Server(peerObject) 

Server Jl cSg^g < Peer Class Jl 0 jo psLa^jI pj i_sjJlg Peer Object Jl qJ jucjuuu 
lj jo Ac- 3 jo^%jo ^jJI A9Lo\)L AjuoJbJI cl^jlg tju aJLo^ A^>bJI Methods Jl ^jJLc Object 

:c5>>\JI O LWJI 
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server. 


-=♦ GetType 

♦ InitializeLifetimeService 
p PlayerCreated 
P PlayerDeleted 
Ef? SessionDescription 
f? SessionLost 
=♦ SetTransrnit Targets 


StartSession 


♦ StopSession 

♦ ToString 


/yjj Cjus> StartSession MethodJI ^1 AjuJjsJI :>L_^I AjuuJbJi IjJs 

lo5 s SessionDescription Jl J\l> o-° 


C#: 

//set up session description for the voice server 

Voice.SessionDescription sessionDesc = new Voice.SessionDescription(); 

sessionDesc.BufferAggressiveness = Voice. BufferAggressiveness. Default; 

sessionDesc. BufferQuality = Voice. BufferQuality. Default; 

sessionDesc.Flags = 0; 

sessionDesc.SessionType = type; 

sessionDesc.GuidCompressionType = compressionType; 

VB.NET 

'set up session description for the voice server 

Dim sessionDesc As Voice.SessionDescription = New Voice.SessionDescription 

sessionDesc. BufferAggressiveness = Voice. BufferAggressiveness. Default 

sessionDesc. BufferQuality = Voice. BufferQuality. Default 

sessionDesc. Flags = 0 

sessionDesc.SessionType = type 

sessionDesc.GuidCompressionType = compressionType 


Voice Session JI3 Peer Object Jl l^J jjjoj Method cLiub Voice Session cLiuVs 
IunJL loS JUi pjjs Compression Type />jct^uuuJI ksu .Jl ^3 Type 


C#: 

protected void CreateVoiceSession(Peer dpp, Voice.SessionType type, Guid 
compressionType) 

{ 

try 

{ 

//set up session description for the voice server 

Voice.SessionDescription sessionDesc = new Voice.SessionDescription(); 

sessionDesc. BufferAggressiveness = Voice. BufferAggressiveness. Default; 

sessionDesc. BufferQuality = Voice. BufferQuality. Default; 

sessionDesc.Flags = 0; 

sessionDesc.SessionType = type; 

sessionDesc.GuidCompressionType = compressionType; 
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//start the session 
try 
{ 

server.StartSession(sessionDesc); 
mlsHost = true; 
mlnSession = true; 

} 

catch(DirectXException dxe) 

{ 

throw dxe; 

} 

} 

catch(Exception e) 

{ 

throw e; 

} 

} 

VB.NET 

Protected Sub CreateVoiceSession(ByVal dpp As Peer, ByVal type As 
Voice.SessionType, ByVal compressionType As Guid) 

Try 

'set up session description for the voice server 
Dim sessionDesc As Voice.SessionDescription = New 
Voice.SessionDescription 

sessionDesc. BufferAggressiveness = Voice. BufferAggressiveness. Default 
sessionDesc. BufferQuality = Voice.BufferQuality.Default 
sessionDesc.Flags = 0 
sessionDesc.SessionType = type 
sessionDesc. GuidCompressionType = compressionType 

'start the session 
Try 

server.StartSession(sessionDesc) 
mlsHost = True 
mlnSession = True 
Catch dxe As DirectXException 
Throw dxe 
End Try 

Catch e As Exception 
Throw e 
End Try 
End Sub 


!v_sJL laS L^JIcJlLjujI joJj$ 


C#i 

CreateVoiceSession(host, Voice.SessionType. Peer, 
mConfigForm.CompressionGuid); 
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VB.NET 

CreateVoiceSession(host, Voice.SessionType.Peer, mConfigForm.CompressionGuid) 

:ServerJI Sr ?oJI Sessions Jl §jo JLojYU Client Jl <j>kr 4^>LsJI Classes Jl -2 
: Client Class Jl ^3 a^^l MethodsJI /^\ 0 .03 Client Class Jl 


//Connect to voice session 

client.Connect(soundConfig. 


[fl? ClientConfig 
nf? CompressionTypes 

▲ 

0 j 

P ConnectResult 


=♦ Create3DSoundBuffer 


=♦ CreateObjRef 


♦ Delete3DSoundBuffer 


♦ Disconnect 


p DisconnectResult 


♦ Dispose 

Jll 


Server Jl Jjuj* Voice SessionJI §jo k^J />jc*^uoJ 3 Connect ^sivoJI 
Lo5 JU:> />jj 3 < -^juuJbJI ^1 Js>jJI qjo Client Jl ^-^3 Client JU SessionJI 

C#: 

protected void ConnectToVoiceSession(Peer dpp, Form wnd) 

{ 

try 

{ 

Voice.SoundDeviceConfig soundConfig = new Voice.SoundDeviceConfigQ; 

//Set sound config to defaults 

soundConfig.GuidPlaybackDevice = DSoundFlelper.DefauItVoicePlaybackDevice; 
soundConfig.GuidCaptureDevice = DSoundFlelper.DefauItVoiceCaptureDevice; 
soundConfig.Window = wnd; 

//TODO: add error message for specific failures? 

//Connect to voice session 

client.Connect(soundConfig, mClientConfig, Voice.VoiceFlags.Sync); 

//set state 
mlnSession = true; 

//set transmit targets to all players 
int[] xmitTargets = new int[l]; 
xmitTargets[0] = (int) PlayerlD.AIIPlayers; 
client.TransmitTargets = xmitTargets; 

//get sound device config to check for half-duplex 
soundConfig = client.SoundDeviceConfig; 

mhlalfDuplex = ((soundConfig.Flags & Voice.SoundConfigFlags.FlalfDuplex) != 0); 

} 

catch(Exception e) 

{throw e;} 

}} 
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VB.NET 

Protected Sub ConnectToVoiceSession(ByVal dpp As Peer, ByVal wnd As Form) 

Try 

Dim soundConfig As Voice.SoundDeviceConfig = New Voice.SoundDeviceConfig 
'Set sound config to defaults 
soundConfig.GuidPlaybackDevice = 
DSoundHelper.DefauItVoicePlaybackDevice 

soundConfig.GuidCaptureDevice = DSoundHelper.DefauItVoiceCaptureDevice 

soundConfig.Window = wnd 

'TODO: add error message for specific failures? 

'Connect to voice session 

client.Connect(soundConfig, mClientConfig, Voice.VoiceFlags.Sync) 

'set state 

mlnSession = True 

'set transmit targets to all players 

Dim xmitTargets As Integer() = New Integer(O) {} 

xmitTargets(O) = Clnt(PlayerlD.AIIPIayers) 

client.TransmitTargets = xmitTargets 

'get sound device config to check for half-duplex 
soundConfig = client.SoundDeviceConfig 

mhlalfDuplex = ((soundConfig.Flags And Voice.SoundConfigFlags.FlalfDuplex) <> 
0 ) 


Catch e As Exception 
Throw e 
End Try 
End Sub 

o^\J DirectPlay Jl ^9 L^JL> />j _\s UDPJI3 TCP Jl ^9 JSLiuoJI ol k>\) 

(-jLsJjJI jj /x^jJ <_S3_juj /J Direct Play Jl cLiol qjo v_9a^JI 0I9 i_93_>ao 3^ lo^3 
jsaJij Lpjl \)l v_s03^JI JLajJI v_s^9 Direct Play Jl .^Jl c>_>^SJI A^^joJI £03 

...Linux JL. ^LaJI SCTP Jl J3S3J3JJ Voice Over IP Jl ol>yoJ 

Jl Qpjojj ^SuuuuJI JLxjJ v 3jJsJI ,p»£>l ^£. \jOoc JLo Lmj IJlSLo>3 

Transport Jl ool>*o /^l^ Ouu 03JJI axuuo Voice Chat 
Classes Jl J £>juJ \^\s aSLuoJI >*.c 03-fidl JaJ l^»Lut$Loj LSJU03 Layer 
DirectPlay Transport Jl ^3^1 JLaJJI \S 3 cu>.xajuuuuoJl3 

.Protocol 

iS 3 Application Layer Jl yX csJUl ejjdl sS 3 vJjjlsJI 

.CjuU 03JJI 
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Advanced Voice Over IP Programming 

V_-lL5JI ,JjO ^L^_ajuuJ I ^s3 £<^b<)joJI Ijlq} Jj^Lqj JJSlLjuJ 

c c 

uj^LaJI Jl>I J Lew UI , s&M & 03 *JI si jLuuujjuujJI^ I vjJLbJ 

culUI 


Mobile : +962796284475 

Phone: +96265055999 

E-mail: fadi822000@yahoo.com 

BOX: 311 Mail Code 11947 Tariq—Amman—Jordan 

iuUXU jJl JaJI 

www.fadidotnet.org 
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Part 4 

Application Layer Programming 


Chapterll DNS Programming 
Chapterl3 Web Services & XML Programming 
Chapterl4 SMTP & POP3 Programming 
Chapterl5 FTP Programming 









Fadi Abdel-qader - Dot Net Networks & TCP/IP Programming 


Chapter 11 
DNS Programming 

- Synchronous DNS Members 

- Asynchronous DNS Members 
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cOJl JXjjJJ 


: DNS Programming :11 

JiLoju oISLjOjJ^ v_svS JlZ^IjLjuUU v_S\jJI oloAiJI /will i JjO OA5J3 DNS AoA>- jjASZJ 

i-s^ls ch° Dornain IP v_sJ| Dornain NameJI Aog>jJ aJLxszj />LjUIj DNS AajJi>3 </>lc 

<GjuA>Aj />3flJ ) DNS ol^3jjO QjO Ia> AC3jOG%jO J\l> QjO dJUi />A>3 (jjJlSJdl 
k_jJLku Client AJI />djj tuJLxxsdl oa£> Iaj < (qa^o 6 jjs A^LsJI obL_JI oacIs 
Ulhuuuo /xj - cu ^Ldl Domain Name Jbob JU:>3 Client BJb ^bJI DomainJI 
b >5 - DNS Server i—> AajLsJI oUL_JI 6 ac 19 <^s t^^uuLflj iJ&jjzjj Client BJI />Ls 
o^> local DNS Jb l _S\jCX-juUU 3 DomainsJI i_s^Lc obL. 6 acIs ,_?!£ Client 
/>3jjj ojlsj /J Iil9 Domain Name JYL> 1 jjo Domain 0I3AC i_y>lc L^JL>Iju CAsdb />3 &j 
013^11 JLujjL DNS Served I >03^ o-ibeJ as^ 3 DNS ServerJI jjjo i jjjo3jJI 0I3JLC v_JLLu 
J^uJI i_sJI >Lul 1 (j^jLsJI Local DNS v_s^9 oI^ aszJI qj_>jsaj o_j3a> jo^su^ ClientJI (_jJJ 

:^JUI 



LS3AXJ System.Net Name Space />IjcggujL DNS §,0 Jobdl IaJuc u 03JI ^9 

/XmJ LflJ3 DNS l—> AgjLsJI MethodsJI J5 DNS ClassesJI s_ua> ^jdc. 

Asynchronous ^ 9 Synchronous Methods o-JjAo orv°-^ l _sJI ^^31^1 oa£> 

Lo5 v_s^>3 Methods 

: l5\£>q Synchronous Methods <tuoljAoJI ijj^sJuoJI \)gj 

String AojJ) :>3jaoJI oa£> §j>>j3 0-JUJ33JI /x_jujI ^jJLsJ />AitAjuuu v_sv_Jl3 GetHostName 
loS 1 _£jO I A^jLjuJ I OJ3 OI jJudd IjU sst i3AvoJI oAfix A>b J3 Computer NameJI ^jdc. ^3^ 

! <_sJb 

C#: 

string hostname = Dns.GetHostName(); 

VB.NET: 

Private hostname As String = Dns.GetHostName 
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IunJL lo5 L^juo GetHostByAddress ^iyoJI 3 GetHostByName ^sivoJI 


C#: 

IPHostEntry hostjp = Dns.GetHostByName(Computer_Name); // oI^jlsjJI sJGJ 

/>ljC«jLjujL; 

IPHostEntry host_name = Dns.GetHostByAddress(IP_Address); // sJbJ 

/>lAiiAjujli 

VB.NET: 

Private hostjp As IPHostEntry = Dns.GetHostByName(Computer_Name) 

Private host_name As IPHostEntry = Dns.GetHostByAddress(IP_Address) 

IP LJ oJLujjl lil Host Name Overloaded Method vj^ Resolve ^s^uJI 

\)3 IPHostEntryJI ^3 Host Name LJ cJLujI lil Host Address ^>^3 Address 

. QJLiLjjJI ^ol. JlZ^jljuU I Igjol- JC^LiuJ I 

: L^jolAit^jujI AojJo JLijoJll Ijl£>3 


C#: 

using System; 
using System.Net; 

class FMO_DNS 

{ 

public static void MainQ 

{ 

IPHostEntry IPHost = Dns.Resolve("www.yahoo.com"); // qs^slo sSjJI 

cu (j^jLsJI v_sy sS\Jl 

Console.WriteLine(IPHost.HostName); // JoUJU orv°9->JI 

IPAddress[] addr = IPHost.AddressList; // ^ q^LJI AjoJIs 2^3 

for(int i= 0 ; i < addr.Length ; i++) // A9^aoJI j-oLc AcLL> 
{Console. WriteLine(addr[i]);}}} 

VB.NET: 

Imports System 
Imports System.Net 

Class FMO_DNS 

Public Shared Sub Main() 

Dim IPHost As IPHostEntry = Dns.Resolve("www.yahoo.com") 
Console. WriteLine(IPHost.HostName) 

Dim addr As IPAddress() = IPHost.AddressList 
Dim i As Integer = 0 
While i < addr.Length 

Console. WriteLine(addr(i)) 

System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1 ) 
End While 
End Sub 
End Class 
0 
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: Asynchronous Methods <tuolw>JI t w^aijuoJI UU 

: cdio\Jl End 3I Begin AoiSb eotc IjuJ3 

EndResolve 3 EndGetHostByName 3 BeginResolve 3 BeginGetHostByName 
JojjLjuUU W QjI U3^J IgJtSLI QJuoljjjoJI (JjJ^3jljjoJI v_S ^9 JGJI 3^) l&S L^JLoX. AsZj-Jo 
v_S ^9 AjUl 63 last.) I i_S\Ji JLfijj\L JlJOouUU \) i JjoljjjoJI vJ-P>- i_S \3 gJjobjjJI JjO^C 

/>lc JijuJU 1 JJUULo j3^JjjJI uAajieJ CUjjuuJI OJdi> 1 _juljuUU Jl 93 IgJLxC elg_ul cJb> v_S^9 \ll gJjoljjjJI 

Begin_! v_sJL lo^ ^Juoljjjo jj^JI a&jjJqJI /dAitijujIj dJJjJ gjjoUjjJI v_s\S 

public static IAsyncResult BeginResolve(string hostname, 

AsyncCallback requestCallback, object stateObject ) 

delegateJI c q 3 i_9>2j v_soUJI jj+o$jLJ\ 3 J3\ll j_ujo3jIJI v_s^9 p+i s-^53 />jj 

: v_sJL loS End_ _ Jc^Ljuuu^ < delegate \)l o\l>juo jjjjojj .dU £00^03 

public static IPHostEntry EndResolve(IasyncResult ar) 


^jJLc Jjcxsj ci 5 uljJJI i_jJLc 6^3^>3joJI IP'sJI v-Jbtj />30 j ^ u-uju 3 JjoLuJ JUlo Lfli3 
/>oj StandardOutput A^bJI J\l> 0- 0 ProcessStartlnfo 0-0 host namesJI sJL> 
s>j GetMachineNamesFromProcessOutput :>3iyoJI J\L> 0- 0 host name ^1 ^3^ 
.. Dns. Resolve ^3 jl<joJI JYL> i jjo ^3!^ ,_sJI cLooujiJi Jj3j>j />jj />j Col I ica ion v_s\S Ip-ujSej 
1 1&9 ProcessStartlnfoJL ^LsJI collection.!! 6t \>J StreamReaderJI />I_vjsl^uuI />jj IsJo 

: JlioJI 3^) 

C#: 

using System; 
using System. 10 ; 
using System.Diagnostics; 
using System.Net; 

using System.Collections.Specialized; 


namespace NetworkIPs 

{ 

public class Names 


{ 

public StringCollection GetNames() 

{ 

ProcessStartlnfo _startInfo = new ProcessStartInfo("net","view"); 

_startInfo.CreateNoWindow = true; 
_startInfo.UseShellExecute = false; 
_startInfo.RedirectStandardOutput = true; 

Process _process = Process.Start(_startInfo); 
StreamReader _reader = _process.StandardOutput; 
StringCollection _machineNames = 
GetMachineNamesFromProcessOutput(_reader.ReadToEnd()); 

StringCollection _machineIPs = new StringCollection(); 
foreach(string machine in _machineNames) 

{ 

_machineIPs.Add(IPAddresses(machine)); 

} 

return _machineIPs; 
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} 

private static string IPAddresses(string server) 

{ 

try 

{ 

System.Text.ASCIIEncoding ASCII = new System.Text.ASCIIEncoding(); 

// Get server related information. 

IPHostEntry heserver = Dns.Resolve(server); 
//assumin the machine has only one IP address 
return heserver.AddressList[ 0 ].ToString(); 

} 

catch 

{ 

return "Address Retrieval error for" + server; 

} 

} 

//string manipulations 

private StringCollection GetMachineNamesFromProcessOutput(string 
processOutput) 

{ 

string _allMachines = processOutput.Substring( processOutput.IndexOf("\\")); 

StringCollection _machines= new StringCollection(); 
while(_allMachines.IndexOf("\\") != - 1 ) 

{ 

_machines.Add(_allMachines.Substring(_allMachines.IndexOf("\\"), 
_allMachines.IndexOf(" ",_allMachines.IndexOf("\\")) - 
_allMachines.IndexOf("\\")).Replace("\\",String. Empty)); 

_allMachines = _allMachines.Substring(_allMachines.IndexOf(" 
",_allMachines.IndexOf("\\") + 1 )); 

} 

return _machines; 

} 

} 

public class Runner 

{ 

static void Main() 

{ 

Names _names = new NamesQ; 

StringCollection names = _names.GetNames(); 
foreach(string name in names) 

Console. WriteLine(name); 

Console.ReadLine(); 

} 

} 


160 


VB.NET: 

Imports System 

Imports System .10 

Imports System.Diagnostics 

Imports System.Net 

Imports System.Collections.Specialized 


Public Class Names 

Public Function GetNames() As StringCollection 

Dim _startInfo As ProcessStartlnfo = New ProcessStartInfo("net", "view") 

_startInfo.CreateNoWindow = True 

_startInfo.UseShellExecute = False 

_startInfo.RedirectStandardOutput = True 

Dim _process As Process = Process.Start(_startInfo) 

Dim _reader As StreamReader = _process.StandardOutput 
Dim _machineNames As StringCollection = 
GetMachineNamesFromProcessOutput(_reader.ReadToEnd()) 

Dim _machineIPs As StringCollection = New StringCollection 
For Each machine As String In _machineNames 
_machineIPs.Add(IPAddresses(machine)) 

Next machine 
Return _machineIPs 
End Function 

Private Shared Function IPAddresses(ByVal server As String) As String 
Try 

Dim ASCII As System.Text.ASCIIEncoding = New 
System.Text.ASCIIEncoding 

' Get server related information. 

Dim heserver As IPFIostEntry = Dns.Resolve(server) 

'assumin the machine has only one IP address 
Return heserver.AddressList( 0 ).ToString() 

Catch 

Return "Address Retrieval error for" & server 
End Try 
End Function 
'string manipulations 

Private Function GetMachineNamesFromProcessOutput(ByVal processOutput As 
String) As StringCollection 

Dim _allMachines As String = 
processOutput.Substring(processOutput.IndexOf("\")) 

Dim _machines As StringCollection = New StringCollection 
Do While _allMachines.IndexOf("\") <> -1 

_machines.Add(_allMachines.Substring(_allMachines.IndexOf("\"), 
_allMachines.IndexOf("", _allMachines.IndexOf("\")) - 
_allMachines.IndexOf("\")).Replace("\", String. Empty)) 

_allMachines = _allMachines.Substring(_allMachines.IndexOf("", 
_allMachines.IndexOf("\") + 1 )) 

Loop 
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Return _machines 
End Function 
End Class 

Public Class Runner 
Shared Sub Main() 

Dim _names As Names = New Names 
Dim names As StringCollection = _names.GetNames() 
For Each name As String In names 
Console. WriteLine(name) 

Next name 
Console. ReadLineQ 
End Sub 
End Class 


<Jjj O3J1II 4JLu iS3 JjoI&JI DNSJI J^.bJI 0Xa> \S3 Luu I.)lSLq>3 

■Lwj O3JJI HTTP t.S'JUI J^uJI t_S \3 vjjl a JI jsJomj 1 
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Fadi Abdel-qader - Dot Net Networks & TCP/IP Programming 


Chapter 12 
HTTP Programming 


- The Concept of HTTP Protocol 

- Using HTTP in Dot Net 

- Advanced HTTP Programming 

- Using HttpWebRequest 

- Using HttpWebResponse 
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CliJI /kjuUU 


HTTP - Hyper Text Transfer Protocol Programming :12 

/>JCGGuUUoJI ^jJLlo />JCGGuUUoJI Qjl i_sJ-C />Lc J^LjuUU HTTPJI OajJc>3 

sSjJI 3 RequestJI ^^JLc ijJU web serverJI />Ls /J Server s^l ^1 User Request 
o-° (Multimedia) JLSJjut & jj * s > Jju g-Jaj^juuU Server Response v 
/JjdtijujL Client ApplicationJI ^jJI Web ServerJI o-» .. o >! x 3 3 o>o 3 6 j3 -o 3 

.Byte Stream object 

j_JujLuO c LO I I t^ASZj Ijl £> 3 Application LayerJI ^jJLc HTTPJI Jjo^j 

!v_sJUI J^LuuJI t^l j]cu\ DNS,SMTP,POP3,FTP ^_s3 JUJI 5 ^ lo^ />jdGGuuuoJI 1 jjo 


Web Client WebServr 



Downloading From Web Server : 

^5^1 WebClient ClassJI />IjcgguuU guj o 3 jJI ^3 Web ServerJI g_o Jols-JI sJogjuuu 
^ 1 3 U^jJI l_jJLL> oLjlSuoJI s^jco- U J System.Net Name Space ^3 

Methods Ai\ti WebClient ClassJI />xjj 3 User Request & Server ResponseqJLc 

: s jvj 2 > 3 Web ServerJI 0-0 oULJI 


Byte Array v^s l&Aj.peJ 3 Web ServerJI 0-0 g^UL-JI l^iiJi> 33 DownloadData -1 

:Jlio5 v_sJL />jj*^_juuu 3 HTML Code J^Luj ( _jJLc (_^b_> 2 j 3 

C#: 

using System; 

using System.Net; 

using System.Text; 

class DownloadData_Method 

{ 

public static void Main () 

{ 

WebClient wc = new WebClientQ; 

byte[] response = wc.DownloadData("http://www.google.com"); 

Console. WriteLine(Encoding.ASCII.GetString(response)); 

} 

} 
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VB.NET: 

Imports System 
Imports System.Net 
Imports System.Text 

Class DownloadData_Method 

Public Shared Sub Main() 

Dim wc As WebClient = New WebClient 

Dim response As Byte() = wc.DownloadData("http://www. google.com") 
Console. WriteLine(Encoding.ASCII.GetString(response)) 

End Sub 
End Class 

Local oj-jjjLo Web ServerJI lo vjJLo Jju l^^J^DownloadFile -2 

ajjj sSjJI 0ISL0JI3 qJLcJI §93^ I3-JUJ .zLJLc Lo il Ijl> />Ijc«j_ajj\JI 3^3 Computer 

iJlixxS v_sJL Lo 5 /)JC«jLjuUU3 <\ j 3 v_Q_LoJI 

C#: 

using System; 
using System.Net; 

class DownloadFile_Method 

{ 

public static void Main () 

{ 

WebClient wc = new WebClientQ; 
string filename = "C:\\ra.zip"; 

Console.WriteLine("Download in Progress Please Waite..."); 

wc.DownloadFile("http://www.personalmicrocosms.com/zip/ra.zip", filename); 

Console.WriteLine("file downloaded"); 

} 

} 

VB.NET: 

Imports System 
Imports System.Net 
Imports System.Text 

Class DownloadData_Method 

Public Shared Sub Main() 

Dim wc As WebClient = New WebClient 

Dim response As Byte() = wc.DownloadData("http://www. google.com") 
Console. WriteLine(Encoding.ASCII.GetString(response)) 

End Sub 
End Class 
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o-o oULr ServerJ^ o^l o+> Read Only Stream cLiul \4jjuk99 OpenRead -3 
jujj sSjJI gs^joJU URLJI jjjjoj isj Stream Object ^3 ^.^9 URL 
^sJLc Stream ObjectJI ^9 qjjjs^oJI O L) La_aJ I ^aJojljuUU ReadLine ^3 jl<joJI />Ijc*j-jujIj3 

. HTML Code JSLi 

. Stream ObjectJI os ^oJ Peek isiyoJI />jdt^juuu : Ald^-Ylo 

C#: 

using System; 
using System. 10 ; 
using System.Net; 

class OpenRead_Method 

{ 

public static void Main () 

{ 

WebClient wc = new WebClientQ; 
string response; 

Stream strm = wc.OpenRead("http://www.google.com"); 

StreamReader sr = new StreamReader(strm); 

while(sr.Peek() > - 1 ) 

{ 

response = sr.ReadLine(); 

Console. WriteLine(response); 

} 

sr.Close(); 

} 

} 

VB.NET: 

Imports System 
Imports System .10 
Imports System.Net 

Class OpenRead_Method 

Public Shared Sub Main() 

Dim wc As WebClient = New WebClient 
Dim response As String 

Dim strm As Stream = wc.OpenRead("http://www. google.com") 

Dim sr As StreamReader = New StreamReader(strm) 

While sr.Peek > -1 

response = sr.ReadLine 
Console. WriteLine(response) 

End While 
sr.Close() 

End Sub 
End Class 

^JjpJ urv-JIs PropertiesJI Acsjo^o ^jJLc WebClient ClassJI ^9^9 

sJbJ sSjJl3 ResponseHeaders property Jio Web HostJI o-c olojjao 
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ServerJI cash controlJI t&s HeadersJI ^jlc Jjlo web hostJI o-c Aold> olc>3lao 
: JUlx >5 v_sJL loJ> /> jc«jLjuuu3 <AolgJI olo5JLsixJI qjo Lijjx.3 />jc«jLjuuuoJI EncodingJI 3 


C#: 

using System; 
using System.Net; 

class ResponseHeaders_property 

{ 

public static void Main () 

{ 

WebClient wc = new WebClientQ; 

byte[] response = wc.DownloadData("http://www.google.com"); 
WebHeaderCollection whc = wc.ResponseHeaders; 

Console.WriteLine("header count = {0}", whc.Count); 
for (int i = 0; i < whc.Count; i++) 

{ 

Console.WriteLine(whc.GetKey(i) + " = " + whc.Get(i)); 

} 

} 

} 

VB.NET: 

Imports System 
Imports System.Net 

Class ResponseHeaders_property 

Public Shared Sub Main() 

Dim wc As WebClient = New WebClient 

Dim response As ByteQ = wc.DownloadData("http://www. google.com") 
Dim whc As WebHeaderCollection = wc.ResponseHeaders 
Console. WriteLine("header count = {0}", whc.Count) 

Dim i As Integer = 0 
While i < whc.Count 

Console.WriteLine(whc.GetKey(i) + " = " + whc.Get(i)) 

System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1) 
End While 
End Sub 
End Class 

// Output: 

//header count = 6 

//Cache-Control = private 

//Content-Type = text/html 

//Set-Cookie = PREF=ID=6ae22f44980c5d78... 

//7JRA; expires=Sun, 17-Jan-2038 19:14: 

//Server = GWS/2.1 

//Transfer-Encoding = chunked 

//Date = Wed, 23 Nov 2005 10:10:58 GMT 
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Uploading to Web Server : UU 

: Web ServerJI ,jJI oULJI J+o^J Methods qsuJ WebClientJI />^ju 

ols^x j&j dU^3 Web ServerJI ^1 Stream DataJLuu^V J^LjljuUU^ OpenWrite -1 

oLj>\L^JI jJJLoj oI v-jt<Ej L2J0 Web PageJI i_jJLc cujL^ x>jj <~sjJI yx JI3 0JL0JU URI_II 

iJLuoJ v_sJL LoJ ^0 JlZ%lOjUU3 JUjJ 

C#: 

using System; 
using System.10; 
using System.Net; 
method_class OpenWrite 
{ 

public static void Main () 

{ 

WebClient wc = new WebClientQ; 

string data = "<hl>Welcome to My Page</hl>"; 

Stream strm = wc.OpenWrite("C:\\mypage.html"); 

StreamWriter sw = new StreamWriter(strm); 

sw.WriteLine(data); 

sw.CloseQ; 

strm.CloseO; 

} 

} 

VB.NET: 

Imports System 
Imports System.10 
Imports System.Net 

Class OpenWrite_method 

Public Shared Sub Main() 

Dim wc As WebClient = New WebClient 

Dim data As String = "<hl>Welcome to My Page</hl>" 

Dim strm As Stream = wc.OpenWrite("C:\mypage.html") 

Dim sw As StreamWriter = New StreamWriter(strm) 

sw.WriteLine(data) 

sw.Close() 

strm.Close() 

End Sub 
End Class 

Web ServerJI ^1 Byte j^JI oU^jo JjlJ UploadData - 2 

0_>jX3 3JA>jJI I Jjjo oULJI ^jjo lSI yx gJaOuuu JUI i_sOs2j ljLfl>3 

J LucJ v_sJj laS ^o_\j^lLjuuu 3 Byte Array ^jJI IpJL^ej ^ web serverJI ,jJI 

C#: 

using System; 
using System.Net; 
using System.Text; 
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MethocLclass UploadData 

{ 

public static void Main () 

{ 

WebClient wc = new WebClientQ; 

string data = "This is The Text Before Converted it to Byte"; 
byte[] dataarray = Encoding.ASCII.GetBytes(data); 
wc.UploadData("C:\\mydata.txt", dataarray); 

} 

} 

VB.NET: 

Imports System 
Imports System.Net 
Imports System.Text 

Class UploadData_Method 

Public Shared Sub Main() 

Dim wc As WebClient = New WebClient 

Dim data As String = "This is The Text Before Converted it to Byte" 

Dim dataarray As Byte() = Encoding.ASCII.GetBytes(data) 
wc.UploadData("C:\mydata.txt", dataarray) 

End Sub 
End Class 

Web HostJI ,jJI Local ComputerJI o-o s^J UploadFile -3 

Jlio5 <_sJL lo^ />Jl>j-juUU3 ljJ> />ljdt^juj\JI ALljuUU 


C#: 

using System; 
using System.Net; 

class UploadFile_Method 

{ 

public static void Main () 

{ 

WebClient wc = new WebClientQ; 

wc.UploadFile("http://www.yoursite.com", "C:\\myfile.htmI"); 

} 

} 

VB.NET: 

Imports System 
Imports System.Net 
Class UploadFile_Method 
Public Shared Sub MainQ 

Dim wc As WebClient = New WebClient 
wc.UploadFile("http://www. yoursite.com", "C:\myfile.html") 
End Sub 
End Class 
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oJI L^j 4^>bJI valuesJ^ oULJI o-o Collection />a=*ajuuJ3 UploadValues -4 
Collection ^^3 Byte Array ^J\ CollectionJI as*, Server s^l 
Name Space ^ ^s^oJI NameValueCollection ^ JC^LjLajUU 

CollectionJI A9L3J add ^sivoJI ^a^^a^ <^aj>szj as^ System.Collections.Specialized 

iJtiuod v_sJL lod /)AitAjuuu3 ..AjA> 

C#1 

using System; 

using System.Collections.Specialized; 
using System.Net; 
using System.Text; 

class UploadValues_Method 

{ 

public static void Main () 

{ 

WebClient wc = new WebClientQ; 

NameValueCollection nvc = new NameValueCollection(); 
nvc.Add("firstname", "Fadi"); 
nvc.Add("lastname", "Abdel-qader"); 

byte[] response = wc.UploadValues("http://localhost/mypage.aspx", 
nvc); 

Console. WriteLine(Encoding.ASCII.GetString(response)); 

} 

} 

VB.NET: 

Imports System 

Imports System.Collections.Specialized 
Imports System.Net 
Imports System.Text 

Class UploadValues_Method 

Public Shared Sub Main() 

Dim wc As WebClient = New WebClient 

Dim nvc As NameValueCollection = New NameValueCollection 

nvc.Add("firstname", "Fadi") 

nvc.Add("lastname", "Abdel-qader") 

Dim response As Byte() = wc.UploadValues("http://localhost/mypage.aspx", 

nvc) 

Console. WriteLine(Encoding.ASCII.GetString(response)) 

End Sub 
End Class 
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:HTTP Programming.)! isvi LoJub Sj^oIojoJI: UJU 

sSjJI^ Web Client Applications oU+Jaj cl>>\JI /^\ o* c><JI 

HttpWebResponse ClassJI 3 HttpWebRequest ClassJI 0-0 />l-^^l ox s*s 


: HttpWebReauest Class -1 

( ta _5 N «9 v-jS^-JWjtjujI ^JkjuUU JlZ^ijLjuUU PropertiesJI o^> Ac3 J aj% J o ClassJI Ij^ sSs^ 

: Jjlo cLiuJ Web Client ApplicationsJI oU^k, 
PortJI />Jj 3 Proxy ServerJI ols^x l^s jyu : Web ProxyJI A^l> ^Ijct^uul -1 
Firewall 3! Proxy Server o-°HTTP Web RequestsJI §,0 Jols-JI gjjcu—kjju 

JlixxS v_sJL lo5 Proxy Server ProsperityJI ^3 

C#: 

using System; 
using System.Net; 

class ProxyServer_Property 

{ 

public static void Main () 

{ 

HttpWebRequest hwr = (HttpWebRequest)WebRequest.Create( 
"http://www.google.com"); 

WebProxy proxysrv = new 
WebProxy("http://proxyl.server.net:8080"); 
hwr. Proxy = proxysrv; 

} 

} 

VB.NET: 

Imports System 
Imports System.Net 

Class ProxyServer_Property 

Public Shared Sub Main() 

Dim hwr As HttpWebRequest = 

CType(WebRequest.Create("http://www. google.com"), HttpWebRequest) 

Dim proxysrv As WebProxy = New 
WebProxy("http://proxyl.server.net:8080") 
hwr. Proxy = proxysrv 
End Sub 
End Class 

ClassJI 0 jo WebProxy Object HttpWebRequest ObjectJI cuIaJI ^9 

i ^J| OdLi_Ajjj (<_a lo JUi as^ 3 Port Jl />Jj 3 Proxy ServerJI ul^ qJ webProxy 

v_svS 6^3 ^t3jo 03SJ v_scJI Proxy cu-obJI />ljdtdjujL Object ^sl 

.. HttpWebRequest Objects 
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StreamsJI />lAi*Ajuulr Server s^l ^Jl oULr JL^J HttpWebrequestJI />Iaj*a_juuI -2 

:JLio5 <_sJL La5 />jd«. jLjuUU^ 

C#1 

HttpWebrequest hwr = (HttpWebRequest)WebRequest.Create("http://localhost"); 
Stream strm = hwr.GetRequestStream(); 

StreamWriter sw = new StreamWriter(strm); 
sw.WriteLine(data); 

VB.NET: 

Dim hwr As HttpWebrequest = CType(WebRequest.Create("http://localhost"), 
HttpWebRequest) 

Dim strm As Stream = hwr.GetRequestStream 
Dim sw As StreamWriter = New StreamWriter(strm) 
sw.WriteLine(data) 

Request Jl Ju^uuu3 Stream Object HttpWebRequest ObjectJI as*, 

. GetRequestStream J\L> o-o Stream 

:HttpWebResponse Class - 2 

ClientJI ,jJI Server s^l ^ obL< HttpWebResponse ObjectJI 
J3 AJjosdl ojLgJ BeginGetResponse :>3 JaoJI 3 GetResponse ^3 jL«joJI />Aa*Ajuuu 

jjjsu BeginGetResponse ol lS 3^ MethodJI AaJb3 ^ aj>3j 

. asynchronous Method 


: ^5^3 PropertiesJI 0-0 :>ac ,_jJLc HttpWebResponse Object Jl 

Character SetJI aja^aJ />a=*ajuuJ3 : CharacterSet -1 
encodingJI AJLxxsJ /)Jc«jLjuuu3 : ContentEncoding -2 
i_>JI A 9 ^aoJ />A ^JLjuUU 3 : ContentLength -3 
ResponeJI ajaa*aJ : ContentType -4 
Cookie <^JLo cLojul J3I i_oej IpjolAAtAjua^ CookiesJI gjo JjobiJ : Cookies -5 

: JLijo5 Lcx5 c \AjjsH^ 


C#: 

HttpWebRequest hwr = 

( , HttpWebRequestjWebRequest.Create( , http://www.amazon.com) ; 
hwr.CookieContainer = new CookieContainer(); 

: ^sJL lo 5 oJI ojuljuuu />j HTTP RequestJI J^9 JU:>3 
HttpWebResponse hwrsp = (HttpWebResponse)hwr.GetResponse(); 
hwrsp.Cookies = hwr.CookieContainer.GetCookies(hwr.RequestUri); 
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VB.NET: 

Dim hwr As HttpWebRequest = 

CType(WebRequest.Create("http://www. amazon.com"), HttpWebRequest) 
hwr.CookieContainer = New CookieContainer 

Dim hwrsp As HttpWebResponse = CType(hwr.GetResponse, HttpWebResponse) 
hwrsp.Cookies = hwr.CookieContainer.GetCookies(hwr.RequestUri) 

HTTP HeadersJI : Headers -6 

JjJlszj >1 053 8r>>' : LastModified -7 

HTTP ResponseJI ^ JSZlLjulU v_soJl3 ^3 jl<joJI qSjszoJ : Method -8 

HTTP VersionJI qSjsloJ : ProtocolVersion - 9 

Server^ URLJI : ResponseUri - 10 

Served I /XouJ I A9: Server - 11 

/>AiojuuuoJI CodingJI ^ A^s-oJ : StatusCode - 12 

HTTPJI AJb> ^ 1 ^- sS3^%j Text '■ StatusDescription - 13 


§jo JjoIaJI oju o^aJI ijvd HTTP _JI J^uJI IJlq) tjvd Lu 

< Ojj 03JJI <mj HttpWebResponseJI^ HttpWebRequestJI 
JjolaJI vj)>b5 XML JI3 Web Services «jnJUI J-abJI 

■ Ouu O3JJI 
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Fadi Abdel-qader - Dot Net Networks & TCP/IP Programming 


Chapter 13 

Web Services & XML 

Programming 

- Introduction to Web services & XML 

- Create A Simple Web Service Application 

- Advanced Remotting & Web Services 
Programming 
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Web Services Programming :13 


web serverJI ojj JcUJI q+9 L^3 HTTPJI <^op o-c v^LuJI «>>JI Uju^j 
web Jl p I. JC^LjuJ I A&Jos ilajLuj cue LujlsiJ loJ JjovSLo c>>JI Ia^> clientJIg 
ogj>JI guibjj J>G web serverJL o^sjoJI MethodsJI 0-0 6 ^Ul^uu\JI syLSLoL services 
Jju pjj. Simple Object Access Protocol J ,,L^>I gjig SOAP Jl Jg 5 gj>j />ljc*^uubg 
XML - extensible Jl ^1 l^JLg^ asu ClientJI ^1 web Services serverJI 0-0 ResuItJI 
0-0 ugj>JI jl^> ljJI HTTPJI J3S3JJJ Jjlo Markup Language 

firewalls Jl J\L> 0-0 ClientJI ^jJI web serverJI qjo DataJI Jg^>g J+z-jujJ 3^1 cuoIjcsjLjujI 


i_jJLc Jjo^j i_sjJlg HTTPJI J 3 S 3 JJJ _/xcjj olSL^juuJI oUjj Sjjoc> ol il ^coJLjaioJI olL<_Jlg 
HTMLJI v^s AdjjJI J HTMLJI ^ XMUI AsJ \)g . 80 Port JI 

>41 Aj 3 >oj ppjj <> </>JI Jao AttributesJl 3 Elements Jl o* ^sjojsio v^g 

: lg_Jx JLu&Sg 


<myStuff> 

<myName>FADI Abdel-qader</myName> 

<myTelephone> +962796... </myTelephone> 
<myEmail>fadi822000@yahoo.com</myEmail> 

< myAge> 23 </myAge> 

< mySex> M < /mySex> 

</myStuff> 

l^jcl>9 pjj. o^> System.xml Name Spaces />Ijl^uuL O3JJI i_s\9 L^jLcJO-ujI pJ .jg 
: v^sJL Lo5 XmlDocument Class Jl ^ :>gj>gjoJI Load igiuJI />ljd*^uub 


C#: 

using System.Xml; 

11 Then you can Read any XML File as Below: 

XmlDocument xDoc = new XmlDocumentQ; 
xDoc.Load(@"C:\myinfo.xml"); 

XmlNodeList name = xDoc.GetElementsByTagName("myName"); 
XmlNodeList telephone = xDoc.GetElementsByTagName("myTelephone"); 
XmlNodeList email = xDoc.GetElementsByTagName("myEmail"); 
XmlNodeList age = xDoc.GetElementsByTagName("myAge"); 

XmlNodeList sex = xDoc.GetElementsByTagName("mySex"); 

MessageBox.Show( 

"Name: " + name[0].InnerText +"\n"+ 

"Telephone: " + telephone^].InnerText +"\n"+ 

"Email: "+ email[0].InnerText +"\n"+ 

"Age: "+ age[0].InnerText +"\n"+ 

"sex: "+ sex[0].InnerText +"\n" 
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VB.NET: 

Dim xDoc As XmlDocument = New XmlDocument 
xDoc.Load("C:\myinfo.xml") 

Dim name As XmlNodeList = xDoc.GetElementsByTagName("myName") 

Dim telephone As XmlNodeList = xDoc.GetElementsByTagName("myTelephone") 
Dim email As XmlNodeList = xDoc.GetElementsByTagName("myEmail") 

Dim age As XmlNodeList = xDoc.GetElementsByTagName("myAge") 

Dim sex As XmlNodeList = xDoc.GetElementsByTagName("mySex") 

Msgbox("Name: " + name( 0 ).InnerText + "" & Microsoft.VisualBasic.Chr(lO) & "" 

+ "Telephone: " + telephone( 0 ).InnerText + "" & Microsoft.VisualBasic.Chr(lO) & 

"" + "Email: " + email( 0 ).InnerText + "" & Microsoft.VisualBasic.Chr(lO) & "" + 
"Age: " + age( 0 ).InnerText + "" & Microsoft.VisualBasic.Chr(lO) & "" + "sex: " + 
sex( 0 ).InnerText + "" & Microsoft.VisualBasic.Chr(lO) & "") 

: J>l>o Ai\Lo web servicesJI ^Ijcti^l >oj 

obLJI JLflj_jujl3 JLujjI <J\L> />o 0JI3 : The web service server -1 

. ASP.NETJI3 IISJI />lAi*^uL SOAPJI 
^Is obLJI JLaj_juul 3 JLujjL Client JJ juxjuuu sSjJl3 : The proxy object -2 
,jjj\LSJI J\L> ojo HttpWebRequestJI ^9 web Services ServerJI 

. v _9jLujJI c>=JI cujlu to 3^3 WebProxy 
Web Services JL ^13 03^ Aobdl A^J^JI 3^3 : The client application -3 

Server 

: v_sJUI JSL^oJI v_s ^9 Lo 5 
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juJl> ASP.NET Web Services />s & web services server cLiuVs 

WebService jjoAISJI Cjuj&j pi System.Web.Services Name Spaces 

!JUlo 5 v_sOb Lcx53 £3jjuuuoJU v_souuuj_>JI 

C#1 

using System; 

using System.Web; 

using System.Web.Services; 

using System.Web.Services.Protocols; 

[WebService(Namespace = "http://my_url.com/")] 

[WebServiceBinding(ConformsTo = WsiProfiles.BasicProfilel_l)] 
public class Service : System.Web.Services. WebService 
{ 

public Service () {} 

[WebMethod] 
public int Add(int a, int b) 

{ 

return a + b; 

} 

> 

VB.NET: 

Imports System 
Imports System.Web 
Imports System.Web.Services 
Imports System.Web.Services.Protocols 

<WebService(Namespace="http://my_url.com/")> _ 
<WebServiceBinding(ConformsTo=WsiProfiles.BasicProfilel_l)> _ 

Public Class Service 

Inherits System.Web.Services.WebService 

Public Sub New() 

End Sub 

<WebMethod()> _ 

Public Function Add(ByVal a As Integer, ByVal b As Integer) As Integer 
Return a + b 
End Function 
End Class 
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cUxJjJI gjo I AojJlII gjoc> guU £_L>jL dU^ J \su$ B 3 A JLiijLjujI pJj 

JfLdJI v_s^9 Jqj Lod3 SOAPJI J3S9JJJ /)Ijc«j_jujL XML J^Luj ,_sJ-c ClientJI ,_jJI QjjbJI 

: v_sJUI 


Address [^) http: //localhost: 1624/Web5ite3/Ser 

Y' • 


Search 


Service 


The following operations are supported. 

• Add 


Service '3 http://localhost:1624/WebSite3/5ervice.asmx/Add -Micr... - [ [□][><] 


Click here for a corr 


Add 

Test 

To test the operat 

Parameter Valu 
a: 10 

b: |22 


File Edit View Favorites Tools Help 

[*] jjj] Search : (-Favorites /p 




Address 


S] http://localhost: 1624/Web5ite3/Service.asmx/Add 


Qgo 


Links 


V/ - 6 ’ 


Search Web * j? 


<?xml version="1.0" encoding="utf-8V 
<int xmlns="http://tempuri.org/“i32)c/int> 


Done 


(Invoke^ 


* J Local intranet 


Client JU oijlsjl 3 Dll File ,_jJI (jyLuuJI l jjj\lSJI Jj3J5tu ^3! l_oej ClientJI gyoUjj cLoju\)3 

: v_sJL lod <ToljC«j_juJ I s>jjs Resources 

C#: 

using System; 
class Client_side 
{ 

public static void Main(string[] argv) 

{ 

My_main_class mm = new My_main_class(); 
int x = Convert.ToIntl 6 (argv[ 0 ]); 
int y = Convert.ToIntl6(argv[l]); 
int sum = mm.Add(x, y); 

Console.WriteLine(sum); 

} 

} 

} 
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VB.NET: 

Class Client side 


Public Shared Sub Main(ByVal argv As StringQ) 

Dim mm As My_main_class = New My_main_class 
Dim x As Integer = Convert.ToIntl 6 (argv( 0 )) 

Dim y As Integer = Convert.ToIntl6(argv(l)) 

Dim sum As Integer = mm.Add(x, y) 

Console. WriteLine(sum) 

End Sub 
End Class 


< Cjuu 05 jJI <mj Web services Jl gjo JLoLsjJI uLmUIII Luu Iji1£>3 

qao JjoLssjJI SMTP & POP 3 oJLJI J^uJI «_$\d ojI s JI jsJuuuj 

■ CajU O3JJI 


Advaced Remotting & Web Services Programming 

CH 0 CCauuUljJ I I_sv 3 £,3^03joJI IjLQi JUSJCjuJ 

uj^Lsdl Jo I tjdlc J Leu UI 3I jLuulajuuj JI3 I vjJLbJ 

clJUI 


Mobile : +962796284475 

Phone: +96265055999 

E-mail: fadi822000@yahoo.com 

BOX: 311 Mail Code 11947 Tariq—Amman—Jordan 

i-jL&U jJl ^2 

www.fadidotnet.org 
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Fadi Abdel-qader - Dot Net Networks & TCP/IP Programming 


Chapter 14 

SMTP & POP3 Programming 

- SMTP Protocol 

1. SMTP Concept 

2. Using SMTP in Dot Net 

3. Advanced SMTP Programming 

- POP3 Protocol 

1. POP3 Concept 

2. Using POP3 in Dot Net 


180 




jJjO^jJI CliJ I _/XjuUU 


SMTP & POP3 Programming :14 

(jjo Domain Aoc»jj qjJLxxc J3JLUUU0JI3 DNS J3S3JJJ A>io_)j C& (jjjLuuJI cj^JI i_s\S LjJlsj 

v_S '3 i VjLjuJ v_SV-juU v_S^9 ^jJjOJzJI 6Jl£j />LjjJI CU-Q-iJ L*jJ3 (JjoSLsJ^ IP vjjlloj /X_«jjl 

Lx5js> 3 Application LayerJI AaJoJ 0^353^3^1 u^isu os^Ojj { jS^ v_ 93 juj c^sJI 
J3LJUUU0JI3 P 0 P 3 JI 3 v_svJ3_>jlSL)I ajjjJI JjLujjJI JLujjI 1 jx J3IJUUU0JI3 SMTPJI Ld> 
^3 Mail ServerJI 0-0 l^J Download Jxxc JYL> o-o o^jJI ^sJI aJLuj^JI sJLo^ 
^S^-wjLjujI J^-juUU A^jljuUU sSjJl3 HTTP Programming Jl o-c ^3^ .j^MJI c>=JI 
JulC ,_jJLc v_svJ I <j3_juj 6jjJiS CjVgSgjgjj Jl>3j cU I /xJLsdl go i WsbJI v_s \3 

.. A>bdl 


SMTP - - Simple Mail Transfer Protocol Programming :^)gi 

jj-c v_s03_>i^JVI -Vj+JI JLijj_Ajj| 3 JLujjl oLLxc QjjpeJu />$su Mail ServerJI ol i-93_>2joJI co 

'. M J^LuijJI 1^9 LxS v_S^Qi3 cl>>l Aj\lj ^J! Ojjjj\)| 



Workstation 

Incoming Outgoing JLujjJI o-c J3j_^uuoJl3 Message Transfer Agent - MTA 

J3-03 co J1SLJI3 filtering Jl oLLox qs. Js^juoJI 3 Message Delivery Agent -MDA 

AJLuUjJI 

Database ^ AJLuj J\ ojpej 3 M £ sJLxc o-c J3i_ J uuuoJl3 Message User Agent -MUA 
POP - Post Office Protocol />Ijcs^uuU AJLxsdl />jjs Client Jjlo^juuuoJI lSjJ 

: ^JUI JJLaJI ^>,1 



181 




















































MTAJI v^uuLuul JSLauu SMTP Simple Mail Transfer ProtocolJI J3S3JJJ JlZ^LjLajlJU 3 

. JjLujjJI Incoming J ^>^9 Outgoing Jibuti oUL^c lsI 

A> ^bdl Internet ProviderJI qjo SMTP ^jL^> JULoj dbt qx> jl^UI J3I ^ubJ 
§jo ^sj>3joJI Outlook ExpressJI goob^ J\L> ojo JL ^bJI AccountJI A^eJ gJa^juaJ 
Virtual cLiul J\L> o^> 2-0I0JI A^j gJo^uaJ SMTP .JloJ \) oud N WindowsJI 
Control Panel >> Add/Remove : ^ JU:>3 IISJI o-c SMTP Server 

: ^sJUl JSLjAJI v_sd Lod SMTPJI9 IISJI ^>o JJ t>o -vdb Programs 


To add or tamove a component cfck The checkbox. A shaded box means (hat only 
part of the component wi be nstaled To see whaf's ncluded n a component, chi 

Octal*. 

Components: 

Internet Information Services (IIS) 

v Internet Expkwet 



To add oc lemove a component, ekek the check box A shi 

□ {^Management and Monatori 


ol the component wi be nstaked T o see what's ncluded a 

SB Message Queuing 

O Vf*MSN Fvnlrver 


Subcomponents ol Internet Infoimation Services [IIS) 


Q ♦ Common Fies 

Description Includes Web and F 
transactions. Active' 

T otal <fck space lequaed 

Space available on disk 


& ^Documentation 

V ^—1 File Tlansfet Protocol [FTP) Service 

V FrontPage 2000Seivef Extensions 

vi Internet Information Services Snap-In 



|[v 0 SMTP Service 



y ,4 World Wide Web Seivice r«rt/_g* 


: ^Ul JSLaJI ^ lod IISJI 0^0 ServerJI JacI /J 


5 ) 

a iEta 

J) ffc AcUn ton Wmdan H*> 

jajjj 


£) es c? 0 G& tf | 

£ Sy*«m To* ^ !j} 

♦ Jj Event Vtewec 

♦ Shared Foktes 

♦ jj loc*l Umts end Group* 

♦ ^ Performance Lopt and 

J| Oevice Manege* 

^ Stcrage 

♦ Removable Storage 
tv tele Defragment*r 
9 te^. Management 

J)| S«rvt« and ebons 

J Services 

Control 

• Q Inde.ngServx 
- ^ internet Irforrr 
• _JWebS«« 

• _J FTP*** 

- ^DefaJtSH 
'iCwran 


G»»m* Accen Metier 0«*ve*y LDAPFWng Secvty 
DXxA SMTP V** S«v*t 


& 1 < 2 \ 


IPvtarn 


11921631 101 


W Lfrrt nxr6« d comectorw lo 


HMCLB2 


F 

fia|F 


CorPgiee mJ&c derMr. tor tm vetual server 
Mtwi _ 

f iPAddcn I TCPPoT 


a 


Add 


E« 


fW«r** 


OK. 


Ctnctl 


H«*> 


]l 


H*> 


3 System.Web.Mail Name Space JYL> o-*> SMTPJI /iIa^ta^I 03JI /kcjo 

/>Ai*Ajuuu v_svaJI 3 Send ^3 jlu>JI /ja^ajuju i jjo v_svaJI 3 SmtpMail (jjuJJJI ,_jJLc i_S9a%j 
^>3jujoJI jjusij 3 SMTP J'g&sjJ l/x^xsjoJI Port JI 3^3 25 Port JI j+c AJLuujJI JLujjJ 
jAuol jj §jo I^joIas^uuI JbLSuoL J JLSLajI 6ac A>b oa> " overloaded Method " Send 
: AJU 1 ol^uoUJI ^JoAjuuu v_sv-mO I^jA 9 I J ^LuULA) t ol>Aobb 1 ‘dI A^-13 
SmtpMail.Send(string from, string to, string subject, string body) 
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jJLyol__>dl 3 J| <_]—ajJjjoJI OI^jlC ^LlS t^JSjljJ^ J—*J>JJ-oJI OlcpLC Qj>3 QmOQJ J^\)| jjLyoljjJI 

. cJ Ljuj^J I {j£uJ Qj l^jJ I 3 4J Lajj^jJ I o l^jtsd oJ U I 


!v_sJUI J^LuuJI v_s^9 IcxS New Form eLjjuL ps v_s 03 >iSJ\)l ju_>JI JLujjL p$su gjjoUjj ,Jjcxsd 3 

I orm I .< % (Orvigri] | 

□ □ P 



Name ps .Mail dbjJ ^Jdj /J lil) < System.Web.Mail Name Space qslk>L ps /d 
: vjJUl i 3 UI qjL5d ps pj ( ReferencesJI ^_sJI System.Web Space 

qjoU^JI djlju vjvi Iju 3> Name Space qsLdI ^^JV-ajUUU \J 

C#: 

using System.Web.Mail; 

VB.NET: 

imports System.Web.Mail; 


JLuJjVI jj v_Sx9 IjuSi ^3SJI pj 

C#: 

try 

{ 

string from = textBoxl.Text; 
string to = textBox2.Text; 
string subject = textBox3.Text; 
string body = textBox4.Text; 

SmtpMail.SmtpServer = textBox5.Text; 

SmtpMail.Send(from, to, subject, body); 

} 

catch (Exception ex) 

{ 

MessageBox.Show(ex. Message); 

} 
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VB.NET: 


Try 

Dim from As String = textBoxl.Text 
Dim to As String = textBox 2 .Text 
Dim subject As String = textBox 3 .Text 
Dim body As String = textBox 4 .Text 
SmtpMail.SmtpServer = textBox 5 .Text 
SmtpMail.Send(from, to, subject, body) 

Catch ex As Exception 
Msgbox(ex. Message) 

End Try 

: Ijl> AjoLq> cUsl>Mjd 

v_svS LoJ IISJI 1 jjo SMTPJI o-° -X^LJI v j 5 \) <Ay> JJ-Luy Jjcxsy :>3SJI IjuS> 
SMTP Virtual i_sx9 Ly-juuuo cuy_>2j />j XSJJI3) SMTPJI iy ^bJI IP /ySs ^LuuJI 
JLjJ SMTP ServerJI 0-0 Lkyt jjLil < SMTP Server Textbox JL( Server 
JI3 CD 02 - Microsoft Collaboration Data Objects Version 2 <Oa£oJI /jIjcoouJ 
/uj c^LsJI ^3 < CD 02 Object ^1 J3Z53JI gJaouuy \1 col Exception ^^JLc 
SMTP Jl ojjJj julc v^I jJ 3 \ Jiyuy Jjo^ 3 Windows 2000 3 Windows XP §jo 
E xchange />joo.auJ cod N Lot Microsoft Exchange Server 2003 §jo 3I Virtual Server 

. jSjJI ^LuJI ExceptionJI Jouo ^3^ 5.5 3I Version 5 

SMTP Advanced Programming i/yoo yd\ll cij=JI 
6iUJI v_sx 93 < CD 02 /.IjocoujU SMTP _>jlc JjLujj JLuj_,\) Icu-ujj JLlo (jyLuuJI JLuoJI jjJsu 
AyLSuol \)l A9 Lz)VL HTML FormatJI />Ijoo_xJ /xo OutlookJI gjoby J00 gpol^ cLiul joc 
i_s03j-xSJVI AjjjJI JLiijLjujI 3 JLujjV oIjLj> OJlC JLJasy LsyLk>3 olijjsJLo JLujjl 
JLuj_,L />3iy Jcl^juuu gtjobjj cLuuuL />$su Ufli3 ... POP 3 JI 3I HTTPJI /Ja^o-jujU 
ol v-otxS POP 3 JI />ljctijuj\J cujuuuij POP 3 3 SMTPJI />Ijc*j_jujIj v_s03_>i5J\)l ju^jJI JLfljOjjl3 
Microsoft Exchange c^olo />^su ol 3I JL. ^bJI ISPJI 0-0 POP 3 JLjJ >30 
^3^3J gLoo v_93jjj Ld>juxc il POP 3 JI />jco_juuu Oj6^IjlcI 3 i_sJLc Server 2003 
o^ij ^1 osL^VL 1 Windows 2003 Server 3 jl^=JI ^iJLc Ouco Domain Controller 

.qJx Active DirectoryJI 

Name Space J\L> JUi3 ( _^>l3>JI ojjb />Ijoo_juj\) jLouo _/xc^> c*jJ 03JJI ouojij 
^jjMJJI 3 HTML FormatJI /xcjJ MailMessage ^VUI System.Web.Mail 

/>>L POP 3 JI 0JJ3 AJLxxjjJI §jo 0U0JL0 JLujjI AyLSuol/ xcjJ MailAttachment 
Jxxc /xo System .10 3 System.Net 3 System.Net.Sockets Name Space />Ijco_xJ 
Lic>3>3 4 Jb> v_sx93 6jua> JjLuj_, ^3^3 kj cgksu AJLcxaj />LiJJ ServerJI gjo Session 
/>$su Ls>Ijl>I ^jJLc JasLkJI julC3 A>LsJI uuuj> Treelist 3! List Box v_sx9 Igcixsiy />3iy 
Advanced SMTP eMail Jo^ Mail ServerJI o-o AJLxyJ Download jLy ClientJI 
: v^JL Lod MailMessage ^VUI o^> Object j>L /x9 Sender 

C#: 

using System.Web.Mail; 

try 

{ 

MailMessage mm = new MailMessage(); 

mm.From = textBoxl.Text; 
mm.To = textBox 2 .Text; 

// mm.Cc = A>bdl x_i_juuL> (j^Ojuuj (jjo JLujjJI qjo JLSLcxj col 1 ±>\) 

11 mm.Bcc = 

mm.Subject = textBox 3 .Text; 
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mm.Headers.Add("Reply-To", "fadi 822000 @yahoo.com"); // ol9l^>l <s\ 

cULuj^I gjo 

mm.Headers.Add("Comments", "This is a test HTML message"); 

mm.Priority = MailPriority.High; // AJLuujJi I §-03 jJLSoxj 

mm.BodyFormat = MailFormat.Html; // ^Ai^uuuoJI O L°->s-°JI 

mm.Body = "<htmlxbodyxhl>" + textBox 4 .Text + "</hlx/html>"; 

SmtpMail.Send(mm); 

} 

catch (Exception ex) {MessageBox.Show(ex.Message);} 

VB.NET: 

imports System.Web.Mail; 

Try 

Dim mm As MailMessage = New MailMessage 
mm. From = textBoxl.Text 
mm.To = textBox 2 .Text 
mm.Subject = textBox 3 .Text 

mm.Headers.Add("Reply-To", "fadi 822000 @yahoo.com") 
mm.Headers.Add("Comments", "This is a test HTML message") 
mm.Priority = MailPriority.High 
mm.BodyFormat = MailFormat.Html 

mm.Body = "<htmlxbodyxhl>" + textBox 4 .Text + "</hlx/html>" 
SmtpMail.Send(mm) 

Catch ex As Exception 
Msgbox(ex. Message) 

End Try 


t 5 l 3I 3! 03J ls! g-03 o-° ‘djiSuoj ljuS>3 HTMI_II ^3^ />jJzjLjuuu AJLujjJI p-uu l> ol J ix>\i 

v_oej ola^JLo JLujjI ,_sJLc _pl9 gjjobjjJI 1 HTMI_II />Ijc«jljujI; qJLxc 

: :>3SJL <_sJL I&53 CU9 v-qJLoJI />^ujI glj^ls MailAttachment ujj\ISJI p\. JC^jLajiJ I 

C#1 

MailAttachment myattach = 

new MailAttachment("Your_Attached_File_path.extension", MailEncoding.Base 64 ); 
ld>jjX3 Design Jl clJjcxc laJo < J-ol^ J^LLuu SMTPJI gooliL-tgjjl js LjS>3 

.gUSjjjoJI 6 jj l> 3 clSi3 v_93^> Sa-ajJL> ^jJLc JmxiszJ 

VB.NET: 

Dim myattach As MailAttachment = New 

MailAttachment("Your_Attached_File_path. extension", MailEncoding.Base 64 ) 
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POP3- Post Office Protocol Version 3 Programming : LjU 


MUA - Mail User Jl e>> sSjJl3 POP 3 JI J3S3JJJ AaJo3 0I3 LqjLuj UJ-oo loJ 

J_y£>3j qJjjxc J^ijuuuoJI v_sv5 TCPJI qjcOo 110 Port i_sJ-c Agent 

ka>j oo> Mail ServerJI <jj> Download Jo^ J\l> 0- 0 Client o^l ^1 AJLatJI 
i^sJLII JSoJI i_sJJ jJqjI ClientJI j\&> ^3 LuuLJ :>3>3oJl3 Mail FolderJI ^3 JjLuu J\ 



qJ\L> 0^9 Interactive Mail Access Protocol - IMAP POP3 JJ JjIjJI 0-03 

^s 3 0UJ3 Mail serverJI ^ ^ Mail Folder cLiul />jco_juuuoJI gJaouuu 

AlLuJjJI 6 t\j 3 Ol 8j C*S3JI ^_^jULQjU qjLui— juJ 3 IMAP—II ol_^jO 0_\_Dj jjJS&Q {JQJjil j\^S> 
cu9 AlSLouoJI ^5^3 Client ^jo jjS\ o-o Lpjcl j 3 gJaouuO oo> ServerJI J\L> ^jo o^Lo 
03IJ il Mail FolderJI />xsu Mail Server Administrator JjLuj^JI /oL> ^ao vj\q> 

■ sjJUl JfLoJI ejJl _Jdjl 6^3 IgAsou OilsJI v_s ^3 



ojo Authentication as^ qjcl^ /03 Mail Server o^> sA? Mail FolderJI ol la>\J 

Mail Jl AsZjjJ Aj^ 3 Jl 5 *jO v_Sv 3 c oJ 5 LajJLO 0I3 LI9 IcxS j3jjoJI c UoJJ3 />JO*AjuUUoJI />^jujl 
/xSJoj sSjJls AsoJI :>3 -o*jo jjjt qj3S POP3 JI />IjooojjI OjjjJJI oIS^aJ lAJ Folder 
.1£j Mail Server Administrator J J>:> J3 ClientJI 3^ AsoJI ^ 

jjoJI /)>L il ajsxjoj+j IjlJ v_ 93 juj JjLujjJI 6 cIj 3 qJLxsJ POP3JI iloAcI b jjB Ljl L0J3 
Jxxc /oj System.10 3 System.Net 3 System.Net.Sockets Name Space ^IjcooJ 

6jujl> JjLujj ^3>3 aJjcxsj />L_qJJ SocketJI />ljdoojjlj ServerJI g_o ^Ls- Session 
JAC3 qj>bdl v_ajuul> (>3L> Treelist 3I List Box ia\S I^a^Iac />$su. Lii3>3 qJL> <^s 3 $ 
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Mail Jl v_sJI Mail ServerJI o^> cdLxj>l Download Jjxsj ClientJI p^aj Ls>Ia>! l _ s JLc Jag-zJI 

.Textbox ^3 pi Folder 


; v_sJl_JI JijuuJI v_sO j&ioj L>j> ajJl> New Form cLojuL ps 

Forml.cs [Design] | I c; 

o _ □ _ o 



: sJUl Name Spaces qsLdL ps pi 

C#: 

using System.Net; 
using System.Net.Sockets; 
using System. 10 ; 

VB.NET: 

imports System.Net 
imports System.Net.Sockets 
imports System .10 

/jljctjLjuuU ServerJI gjo Session cLiuJ StreamJ^ SocketJI g_o Jols-JI pjj_ «ol tx>\) 

. POP 3 ServerJI o-o «JL*j>JI 6 t\jSs TCPJI Js^Jj 


v_sO — v_souulJ_>JI (jjjYLSJI v-Qj_>ai jt sli lsI) gjjoUjjJI culju v_svS ^cJLJI v-QjjLstJI cisLoL p9 pj 

: (Global DeclarationJI aakxo 

C#: 

public TcpCIient Server;// cLiul JU:>3 v_sy v_so uj v_yoJI J3S3JJJ ^JJO oJJt^l v_9lfi-i-juijl 
A_axjJJJ I 

public NetworkStream NetStrm;// />Ai^uuuoJI olo^isX) JLuJjJ C *-0 -^ji_iuUU (-93-1x1 

public StreamReader RdStrm; // 3 vs-JI 0- 0 0L03WJI oeljjjJ 

public string Data; // JjLujjJI :>jlc ^ L^olAit^ujJ 

public byte[] szData; // 3 vs-JI 0- 0 oULJI 00^ 

public string CRLF = "\r\n";// jLuuj JojJ qjoUjJI ^ I^Ijc*^uu\) 
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VB.NET: 

Public Server As TcpCIient 
Public NetStrm As NetworkStream 
Public RdStrm As StreamReader 
Public Data As String 
Public szData As Byte() 

Public CRLF As String = "" & Microsoft.VisualBasic.Chr( 13 ) & "" & 
Microsoft.VisualBasic.Chr(lO) & "" 


: v_sJUI ^sUI A9 LdL />j Connect ButtonJI v_*s 

C#: 

// create server POP 3 with port 110 
11 vs-iJI & 0 cLiuVServerJI ^ PortllO 3^3 

Server = new TcpClient(POPServ.Text, 110 ); 
try 
{ 

11 initialization 

NetStrm = Server.GetStream(); 

RdStrm= new StreamReader(Server.GetStream()); 

Status.Items.Add(RdStrm.ReadLineQ); 

11 Login Process 

// i_.13JI (^yJI L5 )_>jjjoJ3 j3jjoJI />Ai*Li_ujuoJI /x_jujI Jl>.JServer 
Data = "USER "+ User.Text+CRLF; 

szData = System .Text. Encod ing .ASCII. GetBytes(Data .T oCharArrayO); 

NetStrm. Write(szData, 0 ,szData. Length); 

Status. Items.Add(RdStrm.ReadLineQ); 

Data = "PASS "+ Passw.Text+CRLF; 

///>Jl^*LLjuuuoJL (j£>bdl ij^l 6cl j9 /yJj j 3 >oJI AoJ^g />Jdt^juuuoJI /xjujI i jjo Jt^UI J&j 

szData = System .Text. Encod ing .ASCII. GetBytes(Data .T oCharArrayO); 

NetStrm. Write(szData, 0 ,szData. Length); 

Status. Items.Add(RdStrm.ReadLine()); 

Send STAT command to get information ie: number of mail and size 

STAT jjo\)I />ljc«jLjujU POP 3 Server v_sx9 6:>3>3 joJI JjLujjJI qSjszxJ 
Data = "STAT"+CRLF; 

szData = System .Text. Encod ing .ASCII. GetBytes(Data .T oCharArrayO); 

NetStrm. Write(szData, 0 ,szData. Length); 

Status.Items.Add(RdStrm.ReadLineO); 

: Disconnect ButtonJI ,jrJI ^sJUl :>3SJI A9L5L /x9 
// Send QUIT command to close session from POP server 
Data = "QUIT"+CRLF; 

szData = System .Text. Encod ing .ASCII. GetBytes(Data .T oCharArrayO); 

NetStrm. Write(szData, 0 ,szData. Length); 

Status. Items.Add(RdStrm.ReadLineO); 

//close connection 
NetStrm. Close(); 

RdStrm.Close(); 
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VB.NET: 

Server = New TcpClient(POPServ.Text, 110) 

NetStrm = Server.GetStream 

RdStrm = New StreamReader(Server.GetStream) 

Status. Items.Add(RdStrm.ReadLine) 

Data = "USER " + User.Text + CRLF 

szData = System.Text.Encoding.ASCII.GetBytes(Data.ToCharArray) 
NetStrm.Write(szData, 0, szData.Length) 

Status.Items.Add(RdStrm.ReadLine) 

Data = "PASS " + Passw.Text + CRLF 

szData = System.Text.Encoding.ASCII.GetBytes(Data.ToCharArray) 
NetStrm.Write(szData, 0, szData.Length) 

Status. Items.Add(RdStrm.ReadLine) 

Data = "STAT" + CRLF 

szData = System.Text.Encoding.ASCII.GetBytes(Data.ToCharArray) 
NetStrm.Write(szData, 0, szData.Length) 

Status. Items.Add(RdStrm.ReadLine) 

Data = "QUIT" + CRLF 

szData = System.Text.Encoding.ASCII.GetBytes(Data.ToCharArray) 
NetStrm.Write(szData, 0, szData.Length) 

Status.Items.Add(RdStrm.ReadLine) 

NetStrm.Close 
RdStrm. Close 


3 ( Oj-O"\l| AJLuu^JI 6 el _>9 jL^juu \jj> 3 I QSLxxu )^^I_^JI juu^> Ocl^iU^ 


: Read Last Come Email ButtonJI ^1 ^sJLII :>sUI A9Lz>L 


C#: 

string szTemp; 
Message.Clear(); 
try 


{ 


// retrieve mail with number mail parameter 

Data = "RETR 1"+CRLF; // l*jd>9 il^oJI AJL^I ^ 

szData = System .Text. Encod i ng .ASCII. GetBytes(Data .T oCharArrayO); 

NetStrm. Write(szData,0,szData. Length); 

szTemp = RdStrm.ReadLine(); // AJLuu^JI 

if(szTemp[0] !='-') 

{ 

while(szTemp!=".") 

{ __ 

Message.Text += szTemp+CRLF; 
szTemp = RdStrm. Read Line(); 

} 

} 

else 

{Status. Items.Add(szTemp);} 

} 

catch(InvalidOperationException err){Status.Items.Add("Error: "+err.ToString());} 
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VB.NET: 


Dim szTemp As String 
Message.Clear 
Try 

Data = "RETR 1" + CRLF 

szData = System.Text.Encoding.ASCII.GetBytes(Data.ToCharArray) 
NetStrm.Write(szData, 0, szData.Length) 
szTemp = RdStrm. Read Line 
If Not (szTemp(O) = M -"C) Then 
While Not (szTemp = ".") 

Message.Text += szTemp + CRLF 
szTemp = RdStrm. Read Line 
End While 
Else 

Status. Items. Add(szTemp) 

End If 

Catch err As InvalidOperationException 
Status.Items. Add("Error: " + err.ToString) 

End Try 

Jsuuuuu JUo ljua>3 Ou 03JJI 3 J-o*G Q+suS <Jlo 3 XS L£>3 

j S j JO J OutlOOkJU 4 mjuJ JjoIS Ja&I «UO cJuJI 

JjLmjjJI jjzJ jj ^ JuuujlSI ojjjjJU DLLJI vaJLo ^IaxuuiI gjfiftjijuUU 

Tree List Jjac sJcuuuju LaS HTML Code JSL»i/ v^JLe L^>c <jjo Uju o^I^JI 
^^ 5 JI ijvd <te«03 (JOLmjJLuu cULujj JU Ou^ o^l^JI JjLu/^JI g<o^ 

OcljJV lS^I^I J2uuu 1 Jd3jJ\ vjuDJ b ejuujI uu p * IgJcljJlJ ._Q JLmuJI 

i OijI^JI OLuJjJI 

03AJI Ajuj t_sv 3 JjdI&JI v3>b3 FTP _JI J^aJI i 5 n 3 OjJdJI jx*jujj 

.V_*jU 
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Fadi Abdel-qader - Dot Net Networks & TCP/IP Programming 


Chapter 15 
FTP Programming 

- Introduction to FTP - File Transfer Protocol 

- Create a Simple Application to Transfer Files By 
Using COM Components 

- Create a Simple Application to Transfer Files By 
Using Web Classes Components 

- Create a Simple Application to Transfer Files By 
Using Socket Programming & Streaming Libraries 


CliJ I _/XjuUU 


191 




: FTP - File Transfer Protocol Programming 15 


FTPJI sj 3>3 Application LayerJI ^JJO y>\ J3S3JJJ £j_ 4 ju Ll£> ijuJ 

olaJLoJIuploading &9j 3 downloading Jjjjj AJLxc ^3 LjuJ I i _J^-JuUU ^ Jl^La-juUU sSjJl3 
$£>9 i_yJLc juojjzj v_scJI 3 ^tSLi_«JuJI oL^jojj v-jJLcI LszJ 1^3 FTP ServerJI ^^Jl 3 1 jjo 

21 PortJI 9&s FTP JJ ^a^oJI PortJI l _ s JLc gul^j ServerJI ja^su o^> Client/Server 
^3 j^J jUqgj\JI s^sj ServerJI 1 _sgLu o^TCP Connection Oriented ProtocolJI ^Ijg^gujU 
_vStJl3 Authentication ,3*^1 oLLog: cl>>l ^3 Session cLiuL ClientJI 0-0 sJl> 
i_93_juj <^SjJI3 PortJI p 3 j /xju 'G* r p>- AjuuJbJU cJuJI t_sJLc- qiL9l3joJI /Gu oL>\L^JI i jjO 
ServerJI i_s\S 20 PortJI jjs. o^jJI jlgj> ,_sJI JLujjJI /G03 qJ\L> jjjo oUL_JI JLlqjgujI />jj 

! v_sJUI JSLjgJI v_s^5 LoJ qJjtxsdl OJuii £GaiJ3 


Server waits for connection 



FTP client 


fOi 

Listening 
on port 21 W< 

LP 


FTP server 



Client uploads file 



1043 

1045' 


control link 


upload link 



i jjO jJUl J3I v-Oej 


FTP Server J Jjl^> Jjo^j CLl jSZJ JLjJ FTPJI Aoj> J+sifl-J :<Jso-yjo 
vjJUl JSL2JI ^3 laS 3 IISJI gjo JLjJ AgJuo FTP ServicesJI ol 
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□ 


Windows Components 

You con odd o» remove components ot Wndowt >P 



T o odd or remove « com 
port of the component w 
DtUfc 

Components 
C ^FoxServices 
[ . Indexing Ser*x< 
y ,0 internet Exp*c*« 


Q >f Internet Worm* 


T)M«wiwrt « 

Descnpbon Includes \* 
tiantectcn 
Total dsk space reguie 
Spec* eve l i We on <fek 


To add « wove a cotrponart cick the check bo* A shaded box means dial crdy pad 
oi the component nt be rssta*od To tee whal't ncludad n a ccmponart cfc* Detadt 


\/ Corrmon F4es 

1 0 MB n 

v Ocoonentoticn 

35 MB 

1 Q •* Fte T longer Protocol IFTPJ Sorvce 

01MB '■ 

v ^FtorlPeje 2000 Ser.es Exlenuons 

4 3MB 

•f Internet Inloimatcn Sendees Snaplri 

1 3MB 

«■ aSMTPSeevce 

11 MB 

B Wcrtd W*de Web Senxe 

23MB v 


Oescnpten Piovtdes tapped to aeate FTP ides used to sptoad and download lies 

Total (Ms space tegueed 56 2 MB 
Space avalabfe on da*. 12623 M8 


OK 


Cancel 


/>j Administrative Tools />J Control Panel o-o Services v qjo _vSLll />j 

: onJUI JSLuuJI j$]aj lo^3 Services 



s_sJUI JluuJI V_sv 5 lx >5 icy 


CuCCJ 


IISJI v_s^9 c CuO -VStdl /vj 
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Tj 

Nt Actcn Hefc 

+ •* S) ffi t? 0 c? 

ti >ux<o(ad,mu-> [Scvwrrrev. 

• _J vn6 
.J FTP S*«t 

g5 MM PIP *e 

- ^ DWaJt iW!P VWu* W 
terror* 

fj (tftirl S»iwon> 



FTP$* $«cu*Acctu*t M#m49»i «om*D*^toy 

ctffftlrQ Id Wdjc# cifrtf# ihoiid CCfw hM 
0 • draeiefy be#ed on Pa c«mcii«r 
OiiMlotlMcnrolheicoiTvtM 


lcc*P«* 


C UnrtpLfe'Asaoof 

£«♦** 

E'-Aat 

0Uqv«*» 


C UNC< • 
0MSOOS • 


1 OK- | | C«rc«l 


FTP Commands : X)qI 

J3S3JJJ /x£ju v1aj^> ><-^ a> t_sJI TelnetJI tuJLxc FTP JJ />Ijl>lljuj\JI 3 JL^j\JI cuJLo^c clljuju 
gjo 3I ServerJI g_o v_aJoLslJI aJLxc lpJ\L> qjz pjj v_s^Jl3 >ol3\ll jjjo FTPJI 

: ^sJUl JSLiJI vj^ US 4JU2JI oAa> 5-^3 Remote HostJI 


c C:\WINDOWS\system32Vcmd.exe - ftp fadi-co 

Microsoft Windows XP tUersion 5.1.2600] 

<C> Copyright 1985-2001 Microsoft Corp. 

C:\Documents and SettingsNFADI>ftp fadi-co 
Connected to fadi-co. 

220 Microsoft FTP Service 
User <fadi-co:(none)): FftDI 
331 Password required for FADI. 

Password: 


230 User FADI logged in. 
ftp> ? 

Commands may be abbreviated. Commands are: 


♦ 

delete 

literal 

prompt 

send 

7 

debug 

Is 

put 

status 

append 

dir 

mdelete 

pwd 

trace 

ascii 

disconnect 

mdir 

quit 

type 

bell 

get 

mget 

quote 

user 

binary 

glob 

mkdir 

reev 

verbose 

bye 

hash 

mis 

remotehelp 


cd 

he lp 

mput 

rename 


c lose 
ftp> — 

led 

open 

rmd ir 



:FTP CommandsJI 1^3 


AjuuJUJI cLuuu\) AJUsd A13JU clo 

USER <username> & PASS 
< password > 

a su Server Jl jjjo i^aJLo JjjjlJ />jc*j_cuj 3 
vJjJUJI /)ouul JuJlSj 

RECV 3! RETR <filename> 

jsu ServerJI ^jJI vjJUJI gSjJ />jc*ijuuu3 
<^qJLoJI /)ouul JuJlxJ 

SEND 3I STOR <fi!ename> 

/>Jj v_s\jJI oULJI tiled) 3I tlszeJo JuJcslJ 

: v_sJL I0S3 L^JLfij 

-a ASCII -e EBCDIC - I for Binary Data 
<iJU />j-cjuu LSJJI3 - L<Byte Size> 

TYPE < type indicator 
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3I Passive cI3juj AjuuJLsJI gjp juJlslJ 
J +szs>j /gj PassiveJI AJb> ^3 <^\ J Active 
v-pJLo tSl 3I ^3j3 AJL> v_s ^9 i oaS Jl^uJI 

. ServerJl ^3^ 

PASV 

uploading & 3 JLiAJI AJb> 

Downloading 

Status 3! STAT 

§J 0 JjoLszJI v_svS v- 9 jlsiijo 3^ Lxx5 v_s^3 

DOSJI joUaJ v s ^9 oljJbtxJI 3 oLdJLoJI 

Delete , cd , mkdir, rename ... 

Remote HostJI &*> AjuuJUJI 

Close 3IQUIT 


: COM Components jalJL^ji-w;U OuJ oqjJI FTPJI Rjq , LolaJI : UU 

ojo c>> 3 j 2>3 ITC - Internet Transfer Control ^ FTPJI />IjcgguuI g^j 03-dl ^jo 
v_svS L>5 New Windows Application cLiuL />s CAJJ3 COM Components ControIsJI 

: ^JUI JSL.JJI 


Forml.cs [Design] 


^Using FTP With COM in Dot Net - fmo_82 


B 


c 


'f(p://your_compu(er_name/ 




□ 


Upload A 


□ 


: AJUI Name Spaces A9l^>L ps /J 

C#: 

using System.10; 
using System.Reflection; 


VB.NET: 

imports System.10 
imports System.Reflection 


: Upload ButtonJI ,jJI ^sJUl ^^SJI AsLdI/J 


C#: 

private void button l_Click(object sender, System.EventArgs e) 

{ 

Filelnfo thisFile = new Filelnfo(tbFile.Text); 

Type ITC; 

object[] parameter new object[2]; 
object ITCObject; 

ITC = Type.GetTypeFromProgID("InetCtls.Inet"); 

ITCObject = Activator.Createlnstance(ITC); 
parameter[0] = (string)tbServer.Text; 

parameter[l] = (string)"PUT " + thisFile.FullName + " /" + thisFile.Name; 
ITC.InvokeMember("execute", BindingFlags.InvokeMethod,null, ITCObject, 
parameter);} 


195 































VB.NET: 

Private Sub button l_Click(ByVal sender As Object, ByVal e As System.EventArgs) 
Dim thisFile As Filelnfo = New Filelnfo(tbFile.Text) 

Dim ITC As Type 

Dim parameter( 2 ) As Object 

Dim ITCObject As Object 

ITC = Type.GetTypeFromProgID("InetCtls.Inet") 

ITCObject = Activator.Createlnstance(ITC) 
parameter(O) = CType(tbServer.Text, String) 
parameter(l) = CType("PUT ", String) + thisFile.FullName + " /" + 
thisFile.Name 

ITC.InvokeMember("execute", BindingFlags.InvokeMethod, Nothing, ITCObject, 
parameter) 

End Sub 


Name Space ^-sjoJIg Type Class Jl JU> o-o ITCJI coIjJI vjn 9 /o 
/>^jujI jjjjoj vjvi Object £>JI Array L^c/xj System.Reflection 

ITC Control Jl InvokeMember ^sJluJI ^sJj FTP ServerJI 3 <jJLJI 

... Object 

: jJbtxJI v_s^9 Qsi9j ^OUULJUJ i_SjJI i^aJLoJI 

C:\Inetpub\ftproot 
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: Web ClassJI OuJ oqjJI l5v3 FTPJI Rjo , UlaJI : DU 

System.Net Name Spaces 6 ^sjoJI 3 web Class />lAi*AjujL FTPJI <^ojj 

webResponseJI 3 WebRequest Jl §jo Jols-JI ^3 loJ <*=>0 JolsJI AJLxc <^03 
JjobtJ L^juo 6^lfljLjuj\)l LuJLoj HTTPJI ^<ejo>j v_s\S Ipjio LJLoLszj v_?oJI 3 Classes 

: v_sJL LxxS v_s^oi3 FTP ProtocolJI 

ju LSJJI3 WebClient ujiAKJI />ljde^J dot net Framework 2 />j J WebClient - 

loJ cUj>szj />aj 3 System.Net Name Spaces ^ qjlcju^J ^ sSjJ^ FTPJI g_o Jols-JI 

! <_sJb 

C#1 

using System; 
using System.Net; 

namespace Web_Client 

{ 

class Program 

{ 

public static void Main(string[] args) 

{ 

string filename = "ftp://ms.com/files/dotnetfx.exe"; 

WebClient client = new WebClientQ; 

client.DownloadFile(filename, "dotnetfx.exe"); 

} 

} 

} 

VB.NET: 

Imports System 
Imports System.Net 
Namespace Web_Client 

Class Program 

Public Shared Sub Main(ByVal args As StringQ) 

Dim filename As String = "ftp://ms.com/files/dotnetfx.exe" 

Dim client As WebClient = New WebClient 
client.DownloadFile(filename, "dotnetfx.exe") 

End Sub 
End Class 
End Namespace 
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: unJL lo5 ^^3 FTPJI gjo JjcxsJI Iju3 />j^- J uuu 3 FtpRequestCreator - 


C#: 

using System; 
using System.Net; 

namespace FTP 

{ 

public class FtpRequestCreator : IWebRequestCreate 

{ 

public FtpRequestCreator() 

{ 

} 

public System. Net.WebRequest Create(System.Uri uri) 

{ 

return new FtpWebRequest(uri); 

} 

} 

} 

VB.NET: 

Imports System 
Imports System.Net 
Namespace FTP 

Public Class FtpRequestCreator 
Implements IWebRequestCreate 

Public Sub NewQ 
End Sub 


Public Function Create(ByVal uri As System.Uri) As System.Net.WebRequest 
Return New FtpWebRequest(uri) 

End Function 
End Class 
End Namespace 

/>jj 3 download or upload a file on an FTP server JojzJ Jl^jLjuUU^ Ftp Web Request - 

: v_sJL Ixx^ [gjujsij 


C#: 

using System; 
using System.Net; 

namespace FTP 

{ 

public class FtpWebRequest : WebRequest 

{ 


private string username = "Fadi"; 
internal string password = "fff"; 
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private Uri uri; 

private bool binaryMode = true; 
private string method = "GET"; 

internal FtpWebRequest(Uri uri) 

{ 

this. uri = uri; 

} 

public string Username 

{ 

get { return username; } 
set { username = value; } 

} 

public string Password 

{ 

set { password = value; } 

} 

public bool BinaryMode 

{ 

get { return binaryMode; } 
set { binaryMode = value; } 

} 

public override System. Uri RequestUri 

{ 

get { return uri; } 

} 

public override string Method 

{ 

get { return method; } 
set { method = value; } 

} 

public override System.Net. WebResponse GetResponse() 

{ 

FtpWebResponse response = new FtpWebResponse(this); 
return response; 

} 

> 

} 
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VB.NET: 

Imports System 
Imports System.Net 
Namespace FTP 

Public Class FtpWebRequest 
Inherits WebRequest 
Private username As String = "Fadi" 

Friend password As String = "fff" 

Private uri As Uri 

Private binaryMode As Boolean = True 
Private method As String = "GET" 

Friend Sub New(ByVal uri As Uri) 

Me. uri = uri 
End Sub 

Public Property Username() As String 
Get 

Return username 
End Get 

Set(ByVal value As String) 
username = value 
End Set 
End Property 

Public WriteOnly Property Password() As String 
Set(ByVal value As String) 
password = value 
End Set 
End Property 

Public Property BinaryMode() As Boolean 
Get 

Return binaryMode 
End Get 

Set(ByVal value As Boolean) 
binaryMode = value 
End Set 
End Property 

Public Overloads Overrides Readonly Property RequestUri() As System.Uri 
Get 

Return uri 
End Get 
End Property 

Public Overloads Overrides Property Method() As String 
Get 

Return method 
End Get 
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Set(ByVal value As String) 
method = value 
End Set 
End Property 

Public Overloads Overrides Function GetResponse() As 
System. Net. WebResponse 

Dim response As FtpWebResponse = New FtpWebResponse(Me) 

Return response 
End Function 
End Class 
End Namespace 

:u?JL lo5 IfAo-szJ />jus ServerJI A>JI AJLxsJ />jd*j^uuu 3 FtpWebResponse - 


C#: 

using System; 
using System.10; 
using System.Net; 
using System.Net.Sockets; 

namespace FTP 

{ 

public class FtpWebResponse : WebResponse 

{ 

private FtpWebRequest request; 
private FtpCIient client; 

internal FtpWebResponse(FtpWebRequest request) 

{ 

this. request = request; 

} 

} 

} 
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VB.NET: 

Imports System 
Imports System.10 
Imports System.Net 
Imports System.Net.Sockets 
Namespace FTP 

Public Class FtpWebResponse 
Inherits WebResponse 
Private request As FtpWebRequest 
Private client As FtpCIient 

Friend Sub New(ByVal request As FtpWebRequest) 
Me. request = request 
End Sub 
End Class 
End Namespace 


i_ 9 I aJjjxsJ SSJJI 3 StreamJI FtpWebStream - 

! <_sJL v_S\JjuuO ,_|SLjuIju 


C#: 

using System; 

using System.10; 

using System.Net.Sockets; 

namespace FTP 

{ 

internal class FtpWebStream : Stream 

{ 

private FtpWebResponse response; 
private NetworkStream dataStream; 

public FtpWebStream(NetworkStream dataStream, FtpWebResponse response) 

{ 

this.dataStream = dataStream; 
this. response = response; 

} 

} 

} 
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VB.NET: 

Imports System 
Imports System.10 
Imports System.Net.Sockets 
Namespace FTP 

Friend Class FtpWebStream 
Inherits Stream 

Private response As FtpWebResponse 
Private dataStream As NetworkStream 

Public Sub New(ByVal dataStream As NetworkStream, ByVal response As 
FtpWebResponse) 

Me.dataStream = dataStream 
Me. response = response 
End Sub 
End Class 
End Namespace 

j&ljLajLwjU Server jle i_sJI Client ujq vaLq r9J lMu jJsu JLuo : tgjlj 

: Socket.) h StreamJI 

Stream LibraryJI §jo Joists Client / Server cLojuL cjpJI l-ifli v_s\S 

3 SocketJI />Ij^_.jjU StreamJI <JLuu;l 3 Byte Array ^1 vjJLoJI Jj 3 ^j jo$su ^ 3 -^ 
£ 3 j_ujuo cLojuL p3 ClientJI 3 ! JLujjJL ^LaUI c><JI a>jojjJ 3 < TCP Connection 

: v_svJLJI J5L2JI v_svS 


Forml.cs [Design] | Forml.cs 



: AJUI Name Spaces />. j i_93_juj 

C#1 

using System.10; 
using System.Net; 
using System.Net.Sockets; 
using System.Text; 

VB.NET: 

imports System.10 
imports System.Net 
imports System.Net.Sockets 
imports System.Text 
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C#: 


: vjJUl ^s5JI qjLSL/ ps Send ButtonJI 


try 

{ 

Stream fileStream = File.OpenRead(textBoxl.Text); 

11 Alocate memory space for the file 

byte[] fileBuffer = new byte [fileStream. Length]; 

fileStream.Read(fileBuffer, 0, (int)fileStream. Length); 

// Open a TCP Connection and send the data 

TcpCIient clientSocket = new TcpClient(textBox2.Text,8880); 

NetworkStream networkStream = clientSocket.GetStream(); 
networkStream.Write(fileBuffer,0,fileBuffer.GetLength(0)); 
networkStream.Close(); 

} 

catch (Exception ex){MessageBox.Show(ex.Message);} 

VB.NET: 

Try 

Dim fileStream As Stream = File.OpenRead(textBoxl.Text) 

Dim fileBuffer(fileStream.Length) As Byte 

fileStream.Read(fileBuffer, 0, CType(fileStream. Length, Integer)) 

Dim clientSocket As TcpCIient = New TcpClient(textBox2.Text, 8880) 

Dim networkStream As NetworkStream = clientSocket.GetStream 
networkStream.Write(fileBuffer, 0, fileBuffer.GetLength(O)) 
networkStream.Close 
Catch ex As Exception 
Msgbox(ex. Message) 

End Try 

Alii Stream Object i_.> <^ 3^3 cULujjl i_sjJI v_aJLoJI 6 cljjjj AJjuJI i_s\S Luos 
v ^jLyo^juuuu Lux 93 Byte £^jJI o-° A 93 jL£lo ,_jJI i jjo ju\) SocketJI tJLujjl 
Luoj jJJ^ -Xa <3 fileStream o j0 ^ > 6 :> 3 ^- 3 joJI 3 Read ^ 3 jl<joJI /jIjcsj-jujU cujjjzj pii fileBuffer 
0 L 9 JLS 10 JLujjI pj TCP ConnectionJI /jIjcsj-jujU ServerJI g-o JLaJ cLuuuL 
... NetworkStream Class />Ijc*^jujU ServerJI ^1 fileBufferJI 

jujj> gjj-Luuo cLjjuL p>3 ^ 3^3 uaJLoJI JLijj_Ajjl J 3 ijuuuoJI 3^3 Server A>joj_J 3 

: i_sJUI v_s^9 j ^Lu 


Forml.cs [Design] | 



: AJUI Name Spaces />jc*^uuu ^ 3 ^ 


204 
















C#i 

using System.Threading; 
using System.Net; 
using System.Net.Sockets; 
using System.Text; 
using System.10; 

VB.NET: 

imports System.Threading 
imports System.Net 
imports System.Net.Sockets 
imports System.Text 
imports System.10 


: <_sJL L>53 handlerThread L^ooujI 

C#: 

public void handlerThread() 

{ 

Socket handlerSocket = (Socket)alSockets[alSockets 

NetworkStream networkStream = new 

NetworkStream(handlerSocket); 

int thisRead=0; 

int blockSize=1024; 

Byte[] dataByte = new Byte[blockSize]; 
lock(this) 

{ 

// Only one process can access 

// the same file at any given time 

Stream fileStream = File.OpenWrite(@"c:\upload"); 


sJUI MethodJI AsLol/j 


Count-1]; 


while(true) 

{ 

thisRead=networkStream. Read(dataByte,0,blockSize); 
fileStream.Write(dataByte,0,thisRead); 
if (thisRead==0) break; 
fileStream.Close(); 

} 

lbConnections.Items.Add("File Written"); 
handlerSocket = null; 

} 
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VB.NET: 

Public Sub handlerThread() 

Dim handlerSocket As Socket = CType(alSockets(alSockets.Count - 1), Socket) 

Dim networkStream As NetworkStream = New NetworkStream(handlerSocket) 

Dim thisRead As Integer = 0 

Dim blockSize As Integer = 1024 

Dim dataByte(blockSize) As Byte 

SyncLock Me 

Dim fileStream As Stream = File.OpenWrite("c:\upload") 

While True 

thisRead = networkStream. Read (data Byte, 0, blockSize) 
fileStream.Write(dataByte, 0, thisRead) 

If thisRead = 0 Then 
' break 
End If 

fileStream. CloseQ 
End While 

lbConnections.Items.Add("File Written") 
handlerSocket = Nothing 
End SyncLock 
End Sub 

3 j 3>3 8880 PortJI i_sJLc TCP Connection gu-oJ dJUi 3 ^ 31^0 AjLSu />s pj 

: unJL Lo ^3 listenerThread Ipjo^J L^_JLc ouu^uJl 3 ^>\ps\ 


C#: 

public void listenerThread() 

{ 

80);8TcpListener tcpListener = new TcpListener (8 

tcpListener.Start(); 

while(true) 

{ 

Socket handlerSocket = tcpListener.AcceptSocket(); 
if (handlerSocket.Connected) 

{ 

lbConnections.Items.Add(handlerSocket.RemoteEndPoint.ToString() + " 

connected."); 

lock (this) 

{ 

alSockets.Add(handlerSocket); 

} 

ThreadStart thdsthlandler = new 
ThreadStart(handlerThread); 

Thread thdHandler = new Thread(thdstFlandler); 
thdhlandler.StartQ; 

} 

} 

} 
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VB.NET: 

Public Sub listenerThread() 

Dim tcpListener As TcpListener = New Tcpl_istener(8880) 
tcpListener.Start() 

While True 

Dim handlerSocket As Socket = tcpListener.AcceptSocket 
If handlerSocket.Connected Then 

IbConnections. Items. Add(handlerSocket.RemoteEndPoint.ToString + " 
connected.") 

SyncLock Me 

alSockets.Add(handlerSocket) 

End SyncLock 

Dim thdstHandler As ThreadStart = New ThreadStart(handlerThread) 
Dim thdHandler As Thread = New Thread(thdstHandler) 
thdHandler.StartQ 
End If 
End While 
End Sub 


: Form Load goobj-JI J^^juuu tju ^jJI v_sJUI i^SJI A 9 L 0 L ps pj 


C#: 

private void Forml_Load(object sender, System.EventArgs e) 

{ 

IPFIostEntry IPHost = Dns.GetFlostByName(Dns.GetFlostName()); 

IbConnections.Text = "My IP address is " + 
IPFIost.AddressList[0].ToString(); 

alSockets = new ArrayList(); 

Thread thdListener = new Thread(new ThreadStart(listenerThread)); 
thdListener.StartQ;} 
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VB.NET: 

Private Sub Forml_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
Dim IPHost As IPHostEntry = Dns.GetHostByName(Dns.GetHostName) 
IbConnections.Text = "My IP address is " + IPHost.AddressList(0).ToString 
alSockets = New ArrayList 

Dim thdListener As Thread = New Thread(New ThreadStart(listenerThread)) 
thd Listener. Start() 

End Sub 


-ji jjsuj 1^9 Luoj v_s^JI 3 listenerThread Method Jl pj ThreadJI />ljd*^uub 
ClientJI o^> sjoI ^Ab ls! J 3+9 8880 PortJI ,_yJLc tcpListenerJI 

JLflj^uul handlerThread ^siyoJI cLcjl^ujI dUi PortJI I_\js> 

ijc^joJI 0LSL0JI ^ 9 /A Byte Array Stream DataJI 

JI3 thisRead ujIoJI p^j\ ^jAc. sSjJl3 StreamJI <A b^ v^> fileStream.WriteJI 

...dataByte Array 


e CJyJ O 3 JJI 4JyU QJCXJdjJ v3>^3 FTP Jl JJdOkC QAJjJo LwJ ljlSLa >3 
. Network Security Programming Jl <>c usJUl c>sJI CojlsJI jxkkmj 
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Part 5 

Network Security Programming 


Chapterl6 Cryptography & Hashing Overview 

Chapterl7 Socket Permissions 

Chapterl8 Packet Sniffer & Row 
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Network Security Programming & 
Cryptography 

- Cryptography in Dot Net 

- Hashing In Dot Net 
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_>JI cUJI JX JUOU 

: Network Security Programming : 16 

unauthorized Access J^ptoJI oULJI cuLo^tj l >o\)l p^SLqJI 

! IgjOdi^ i_jJLujI PJlC />ljd«jLjujU 

jj±SLjuJu± II JJ3 Data Encryption & Decryption - 

AJLuU^JI J-juJjjO juA Jl qj 3^> o-° V 3i=tJI Authentications - 

oL>\LJI 3 oLuuLjuJI jl^J3 jua^j Set Policies & Permissions - 

Security Jl />l-iitj_«jjU Ul/Luj Ls>U_>Si <_s\JI AjIooJI v-jJLuJ §jjoc> c_*_j 03 Jl v_s\S oaxci 
v_so lo^ v_s^fi>3 cux-^aJI oLxSuoJI qjo Acooc Ac-3jo^%jo ,_sJ-c v_sv_JI 3 Namespaces 

^JUI JfLuJi 


System.Security. | 


Cryptography 


U Permissions 
{} Policy 
{} Principal 


: Cryptography Namespace Overview : \)gl 

jjJljJuu JL93 jjAjJuu oLLxc Lo JJU v_scJI A0SL0JI t_sv^iq :Cryptography in .NET 
^jl^jujuJ v^SV—ajJ LjuU I J ^ljuUU yD JCtjLjuUU3 Cipher Text ^1 Clear Text 0-0 oULJI 

Jl J> yX^JuULfiJ gJol juUU^ t />\houj\JI JulC L^j^aJLjuJU JLjuJj\JI ^LaJjCXC J-aS O UUI 

!v_S^> c U-juulJ j />Luo 9 l AjYU ,_jJI 1^9 

culi cSj^JI eL&xJI yoJcs^uuu <^3 JjLojjoJI :Symmetric algorithms -A 

\J I JL93 j+SLjJj. jJI AjUxc cl>>V Aszjj-uj AajjJo v_s^3 jjSLjJju*. 11 JL93 jjSLjJj. Jl AJUxsd 

jJjO A£-3jO^%jOJ JjLoJjoJI jjJOjjJI OjJ O3JI CjJXCSt) AJUIoJjoJI jjsJI Ajuol OajuoJ IfrjS 

:v^3 Algorithms ClassesJI 

: DES-Data Encryption Standard Jl />Ijc*ouuU Jl yxCJu cS Jl ^jjYLSJI - 

DESCryptoServiceProvider 
RC 2 CryptoServiceProvider: RC 2 Algorithms yxcju csJI ^YHJI - 
RijndaelManaged : Rijndael Managed Algorithms yxcju csJI ^VUI - 

ASL JLJULk Jl LpJ SuJj [3 AJLuJ^JI JjLouuJI V ^^J tj *)-*■&- juJuJ I L 9^9 OpLstoJl ^-CQJ^Io JI 

OJui JJiflj Jt93 Ijc> AJlc O3SU Jt 9 v_scJI UaiJI Aj_juuu uls AfljjJoJI ojui /sljctOujU qS\J 

PjJIj-juJI Js A^LjjoJ oUJUxC LpJLc cSjJ%j3 v_9j_uju Jt 9 3I AlLujjJI JlA 9 t _sJ I cSi>3j louo oUUJI 
oJ3> /XJ3.. Network BandwidthJI 0-0 p>^%j a9 00JI JjL^JI yxs^JI o-c JU-&U 
pjl^J />Ai«jjuuu3 rcjuuLflj StreamJI c53j_*juuo ,_sJLc- />jj ^.o-CuJI pJLox aJJLujuJI 
jjl^juuJI ^Lajo ^jl^jujJ ^yxs>ljLfijo yjljLxijujI yo^u ciaj^ CryptoStrGd 111 ClassJI ccJLo^JI 
Jo > ijJuu3 IV Installation Victor Decryption jjiJLjudu>- Jl JLJ ^Lijo3 Encryption Kay 

gjo (^jLuJI (jjjJJJI /)JC^LjuUU3 jj^SLjuJu^ II J93 Jl riJLxC v_s ^9 jj^P'LiaxJI (jjJLflj />ljCfcji_jujl 

_^>-*-SLjuUL Jl £^3 Stream DataJI J o^> FileStream 3I MemoryStreamJI 
MS 035J; ul s^syJ TripleDESJI ^Ait^uuu vJ3_^ Jlio^3 < RC 2 3! TripleDES 3I DES 

... 16 Bits qjo v j r p'LfljJI 
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Symmetric Stream Encryption Example: 


C#: 

byte[] Key = {0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09,0x10, 0x11, 
0x12, 0x13, 0x14, 0x15, 0x16}; 

byte[] IV = {0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09,0x10, 0x11, 
0x12, 0x13, 0x14, 0x15, 0x16}; 

string phrase = msg.Text; 

MemoryStream ms = new MemoryStream(); 

TripleDESCryptoServiceProvider tdes = new TripleDESCryptoServiceProvider(); 
CryptoStream csw = new CryptoStream(ms,tdes.CreateEncryptor(Key, IV), 
CryptoStreamMode. Write); 

csw.Write(Encoding.ASCII.GetBytes(phrase), 0, phrase.Length); 
csw.FlushFinalBlockQ; 

byte[] cryptdata = ms.GetBuffer(); 

textBoxl.Text=Encoding.ASCII.GetString(cryptdata, 0, (int)ms. Length); 

VB.NET: 

Dim Key As Byte() = {&H1, &H2, &H3, &H4, &H5, &H6, &H7, &H8, &H9, &H10, 
&H11, &H12, &H13, &H14, &H15, &H16} 

Dim IV As Byte() = {&H1, &H2, &H3, &H4, &H5, &H6, &H7, &H8, &H9, &H10, 
&H11, &H12, &H13, &H14, &H15, &H16} 

Dim phrase As String = msg.Text 

Dim ms As MemoryStream = New MemoryStream() 

Dim tdes As TripleDESCryptoServiceProvider = New 
TripleDESCryptoServiceProvider() 

Dim csw As CryptoStream = New CryptoStream(ms, tdes.CreateEncryptor(Key, 
IV), CryptoStreamMode.Write) 

csw.Write(Encoding.ASCII.GetBytes(phrase), 0, phrase.Length) 
csw.FlushFinalBlockQ 

Dim cryptdata As ByteQ = ms.GetBufferQ 

textBoxl.Text=Encoding.ASCII.GetString(cryptdata, 0, CInt(ms. Length)) 
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Symmetric Stream Decryption Example: 


C#: 

byte[] Keyy = {0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09,0x10, 0x11, 
0x12, 0x13, 0x14, 0x15, 0x16}; 

byte[] IVv = {0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09,0x10, 0x11, 

0x12, 0x13, 0x14, 0x15, 0x16}; 

ms.Position = 0; 

byte[] data = new byte[1024]; 

CryptoStream csr = new CryptoStream(ms,tdes.CreateDecryptor(Keyy, 

IVv), CryptoStreamMode. Read); 

int recv = csr.Read(data, 0, data.Length); 

string newphrase = Encoding.ASCII.GetString(data, 0, recv); 

textBoxl.Text=newphrase; 

VB.NET: 

Dim Keyy As Byte() = {&H1, &H2, &H3, &H4, &H5, &H6, &H7, &H8, &H9, &H10, 
&H11, &H12, &H13, &H14, &H15, &H16} 

Dim IVv As Byte() = {&H1, &H2, &H3, &H4, &H5, &H6, &H7, &H8, &H9, &H10, 
&H11, &H12, &H13, &H14, &H15, &H16} 
ms. Position = 0 

Dim data As Byte() = New Byte(1023) {} 

Dim csr As CryptoStream = New CryptoStream(ms, tdes.CreateDecryptor(Keyy, 
IVv), CryptoStreamMode.Read) 

Dim recv As Integer = csr.Read(data, 0, data.Length) 

Dim newphrase As String = Encoding.ASCII.GetString(data, 0, recv) 
textBoxl.Text=newphrase 

^JJO l_Sl ^/OIJCCjLjuUL tlJLjuJjjoJI O UUI AjIjlJI p$s jj olSL^juuJI oLoejOjj v_S\5 

SocketJI I^JLuujV Stream oULuJI J 3 ^j p^ ^cqjLjuuJI ^_uJLjuj\JI 

/>|jC«j_jujlj AJLuUjJI JL-SJ-juuL JjtiLLjuUUoJI V_9 jJqJI p^SU pj i Network StreamJI />ljd*^uuU 

lo5 jjSI—kaX Jl A9 « SocketJI j-jz. Network StreamJI 

oIaj L&ajlc Byte Array ^ o >^3 memory StreamJI ^1 aJLuj^I Jo^j pj Aojct^uuuJI 

Iv_sJLJI JijuuJI v_s^9 LcxS 3 I AJLujj ,_jJI J 3 J>j ul 


Sender Receiver 



Data Data 
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vsJL*aA)I o-° blot jjS\ JJlojjo ^1 :Asymmetric algorithms -B 

^UiLO p. Jl^jljuUU jjlSLjuJul. Jl diJs Public Kay pic p\. jctjLjuuU oULJI jCjjjJ il JjLojjoJI 

J^ 9 | 3^)3 j) .»- 6 .juulJ 128 Bits pjszCi uuu 3 i j r p>-LajoJI qjj A 9 \Lc dJLjai 03^3 Private Kay 

pC\j i-SjJl3 ^_jj LoJuo j_*sJI I OjJ O3JJI CuxC^>3 O UUU ^jJLjuIjlJI UajJLuliI 

: s ^3 Tow Algorithms Classes /jIjcu-^U Private Kay ^bJI eLajJI 
1- DSACryptoServiceProvider for Digital Signature Algorithm 

P$SU J IjL 0^3 AJLuJjJI J-juJjjO (j^SjuijJI Oj3^i i JjO (J^jj^jJI L^juO ^_ 9 _X_pJ I3: AjjoJjJI gjjl3jJI 

,_y 2 i*JLo jjJljIuj /> 3 - 0 J jJJi Hash FunctionJI />Ijuu_jujU aJLuj^J aJ 3 jj J^uj^joJI 
P>J J-juJ^joJU v_S\JO 3j &j 3 $j£ /)Jdt^juUL^juJ <-SjJl 3 (j^LaJI ^LlQjoJI ^ 3 $^ OJLJ 3 J pj l_SjJI AJLuJjJI 
^ylijJLoJI jjSLjIu dLflJ P$su9 />JL-juUUoJlj (jjJbiij loj Lol iAJLuJjJI gjO />lsJI ^IjLfljoJI 
J_«jJjjoJI IgJZul i_S\_JI I 3 ZSJI (jJJLflj /)IJl 5 «j_«jjL; dJUi pyJj ul UUU 3 /)Lsdl ^L-QjoJI p IJdfcjUjJU 
ld>jJ3 v_s\jJI L^juuujj v_s^q> /xJLjuuucJI Ls>jJ3 v_s\_JI AJLujjJI ul5 lists i^yaiiJjoJI ^jAjuUU v_S^9 

. C^juULflj 3^> AJLuUjJI J-juJjjO ^yaiiljuijJI ul i JjO Ii2>JulC J-julIjjoJI 

^oLsdl ^LlsuoJI JJ3J DSACryptoServiceProviderJI ^ instance ^iuu ^3^ 4 jIjJI 
hash sign J3J <^>^9 Byte Array ^^9 Hash sign ValueJI 035b pj 
AJLujjJI uu>Lz) cuuuLflj 9 ^> ^^^uujJI ol jjJU loiJuLC LpjLuuu I is Is ^^jLuuJIj c o_;Lflj3 value 

L 0 S 3 ciJLjujjjoJI 

C#: 

using System; 

using System.Security.Cryptography; 

class DSACSPSample 

{ 


static void Main() 

{ 

try 

{ 

//Create a new instance of DSACryptoServiceProvider to generate 
//a new key pair. 

DSACryptoServiceProvider DSA = new DSACryptoServiceProvider(); 

//The hash value to sign. 
byte[] HashValue = 

{59,4,248,102,77,97,142,201,210,12,224,93,25,41,100,197,213,134,130,135}; 
//The value to hold the signed value. 

byte[] SignedHashValue = DSASignHash(HashValue, DSA.ExportParameters(true), 
"SHA1"); 

//Verify the hash and display the results. 

if(DSAVerifyHash(HashValue, SignedHashValue, DSA.ExportParameters(false), 
"SHA1")) 

{Console.WriteLine("The hash value was verified.");} 

else 

{Console.WriteLine("The hash value was not verified.");}} 
catch(ArgumentNullException e) 

{Console. WriteLine(e. Message);} 

} 

public static byte[] DSASignHash(byte[] HashToSign, DSAParameters DSAKeylnfo, 
string HashAIg) 
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{ 


try 

{ 

//Create a new instance of DSACryptoServiceProvider. 

DSACryptoServiceProvider DSA = new DSACryptoServiceProvider(); 

//Import the key information. 

DSA. I m portPa ra meters( DSAKeyl nfo); 

//Create an DSASignatureFormatter object and pass it the 
//DSACryptoServiceProvider to transfer the private key. 

DSASignatureFormatter DSAFormatter = new DSASignatureFormatter(DSA); 

//Set the hash algorithm to the passed value. 
DSAFormatter.SetFlashAlgorithm(FlashAlg); 

//Create a signature for FlashValue and return it. 
return DSAFormatter.CreateSignature(FlashToSign); 

} 

catch(CryptographicException e) 

{Console.WriteLine(e.Message);return null;} 

} 

VB.NET: 

Imports System 

Imports System.Security.Cryptography 

Friend Class DSACSPSample 

Shared Sub Main() 

Try 

'Create a new instance of DSACryptoServiceProvider to generate 
'a new key pair. 

Dim DSA As DSACryptoServiceProvider = New DSACryptoServiceProvider() 
'The hash value to sign. 

Dim FlashValue As Byte() = {59, 4, 248, 102, 77, 97, 142, 201, 210, 12, 
224, 93, 25, 41, 100, 197, 213, 134, 130, 135} 

'The value to hold the signed value. 

Dim SignedFlashValue As ByteQ = DSASignFlash(FlashValue, 
DSA.ExportParameters(True), "SFIA1") 

'Verify the hash and display the results. 

If DSAVerifyFlash(FlashValue, SignedFlashValue, 
DSA.ExportParameters(False), "SFIA1") Then 

Console.WriteLine("The hash value was verified.") 

Else 

Console.WriteLine("The hash value was not verified.") 

End If 

Catch e As ArgumentNullException 
Console. WriteLine(e.Message) 
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End Try 
End Sub 

Public Shared Function DSASignHash(ByVal HashToSign As Byte(), ByVal 
DSAKeylnfo As DSAParameters, ByVal HashAIg As String) As Byte() 

Try 

'Create a new instance of DSACryptoServiceProvider. 

Dim DSA As DSACryptoServiceProvider = New DSACryptoServiceProvider() 

'Import the key information. 

DSA. I m portPa ra meters( DSAKeyl nfo) 

'Create an DSASignatureFormatter object and pass it the 
'DSACryptoServiceProvider to transfer the private key. 

Dim DSAFormatter As DSASignatureFormatter = New 
DSASignatureFormatter(DSA) 

'Set the hash algorithm to the passed value. 
DSAFormatter.SetFlashAlgorithm(FlashAlg) 

'Create a signature for FlashValue and return it. 

Return DSAFormatter.CreateSignature(FlashToSign) 

Catch e As CryptographicException 
Console. WriteLine(e.Message) 

Return Nothing 
End Try 
End Function 


C#: 

public static bool DSAVerifyFlash(byte[] FlashValue, byte[] SignedFlashValue, 
DSAParameters DSAKeylnfo, string FHashAIg) 

{ 

try 

{ 

//Create a new instance of DSACryptoServiceProvider. 

DSACryptoServiceProvider DSA = new DSACryptoServiceProvider(); 

//Import the key information. 

DSA. I m portPa ra meters( DSAKeyl nfo); 

//Create an DSASignatureDeformatter object and pass it the 
//DSACryptoServiceProvider to transfer the private key. 

DSASignatureDeformatter DSADeformatter = new DSASignatureDeformatter(DSA); 

//Set the hash algorithm to the passed value. 

DSADeformatter. SetFlashAlgorithm(FlashAlg); 

//Verify signature and return the result. 

return DSADeformatter.VerifySignature(FlashValue, SignedFlashValue); 

} 

catch(CryptographicException e){Console.WriteLine(e.Message);return false;}}} 
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VB.NET: 

Public Shared Function DSAVerifyHash)ByVal HashValue As Byte ,()ByVal 
SignedHashValue As Byte ,()ByVal DSAKeylnfo As DSAParameters .ByVal HashAIg 
As String (As Boolean 
Try 

'Create a new instance of DSACryptoServiceProvider. 

Dim DSA As DSACryptoServiceProvider = New DSACryptoServiceProvider() 

'Import the key information . 

DSA.ImportParameters(DSAKeyInfo( 

'Create an DSASignatureDeformatter object and pass it the 
'DSACryptoServiceProvider to transfer the private key. 

Dim DSADeformatter As DSASignatureDeformatter = New 
DSASignatureDeformatter(DSA( 

'Set the hash algorithm to the passed value. 
DSADeformatter.SetHashAlgorithm(HashAlg( 

'Verify signature and return the result. 

Return DSADeformatter.VerifySignature(HashValue, SignedHashValue( 

Catch e As CryptographicException 
Console. WriteLine(e.Message( 

Return False 
End Try 
End Function 

2- RSACryptoServiceProvider 

vj \9 non inherited Class 3^3 JjIojjo ^si\ jJ\ dL93 jjAjuoJI el_>>l v_ 5 \S /)JdtijuUU 3 
^LajoJI JJ 3 J dU ^3 RSACryptoServiceProviderJI qjo jujl> instance ^ 3 ^ iuljJI 

AJLuj^JI diflj /JLljuuuoJI />j OJ03 AJLujjJI gjo ^otszJI ^LjLoJI 9^3 ^otszJI 

:v_sJLJI J^LuuJI v_s^9 /X-O 3 ^LlqjoJI />ljd«jLjujlj 



—- 1 j Jr* jjl.'' Jli Jb*' | aJLm Jt\ u Jr*ji | jdUj -> -u < *Z%** 3]' 
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: RSA Algorithm^ /JjdtijujU ,2193 ^. 6 -jiLlJI Jlio LjS >3 


C#: 

using System; 

using System.Security.Cryptography; 
using System.Text; 

class RSACSPSample 

{ 


static void MainQ 

{ 

try 

{ 

//Create a UnicodeEncoder to convert between byte array and string. 
UnicodeEncoding ByteConverter = new UnicodeEncoding(); 

//Create byte arrays to hold original, encrypted, and decrypted data. 

byte[] dataToEncrypt = ByteConverter.GetBytes("Data to Encrypt"); 
byte[] encrypted Data; 
byte[] decrypted Data; 

//Create a new instance of RSACryptoServiceProvider to generate 
//public and private key data. 

RSACryptoServiceProvider RSA = new RSACryptoServiceProvider(); 

//Pass the data to ENCRYPT, the public key information 
//(using RSACryptoServiceProvider.ExportParameters(false), 

//and a boolean flag specifying no OAEP padding. 

encryptedData = RSAEncrypt(dataToEncrypt,RSA.ExportParameters(false), false); 

//Pass the data to DECRYPT, the private key information 
//(using RSACryptoServiceProvider.ExportParameters(true), 

//and a boolean flag specifying no OAEP padding. 

decryptedData = RSADecrypt(encryptedData,RSA.ExportParameters(true), false); 

//Display the decrypted plaintext to the console. 

Console.WriteLine("Decrypted plaintext: {0}", 
ByteConverter.GetString(decryptedData)); 

} 

catch(ArgumentNullException) {Console.WriteLine("Encryption failed.");} 

} 
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VB.NET: 


Imports System 

Imports System.Security.Cryptography 
Imports System.Text 

Friend Class RSACSPSample 

Shared Sub Main() 

Try 

'Create a UnicodeEncoder to convert between byte array and string. 

Dim ByteConverter As UnicodeEncoding = New UnicodeEncodingQ 

'Create byte arrays to hold original, encrypted, and decrypted data. 

Dim dataToEncrypt As Byte() = ByteConverter.GetBytes("Data to 
Encrypt") 

Dim encrypted Data As Byte() 

Dim decryptedData As Byte() 

'Create a new instance of RSACryptoServiceProvider to generate 
'public and private key data. 

Dim RSA As RSACryptoServiceProvider = New RSACryptoServiceProvider() 

'Pass the data to ENCRYPT, the public key information 
'(using RSACryptoServiceProvider.ExportParameters(false), 

'and a boolean flag specifying no OAEP padding, 
encrypted Data = RSAEncrypt(dataToEncrypt, 

RSA.ExportParameters(False), False) 

'Pass the data to DECRYPT, the private key information 
'(using RSACryptoServiceProvider.ExportParameters(true), 

'and a boolean flag specifying no OAEP padding. 
decryptedData = RSADecrypt(encryptedData, 

RSA. ExportPa ra meters(T ru e), Fa I se) 

'Display the decrypted plaintext to the console. 

Console. WriteLine("Decrypted plaintext: {0}", 
ByteConverter.GetString(decryptedData)) 

Catch el As ArgumentNullException 
Console. WriteLine("Encryption failed.") 

End Try 
End Sub 
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! 4J LuU jJ I JjJLujJj fi ^ SLimUj (_S^JJ I I ^SVJUJUU 


C#1 

static public byte[] RSAEncrypt(byte[] DataToEncrypt, RSAParameters RSAKeylnfo, 
bool DoOAEPPadding) 

{ 

try{ 

//Create a new instance of RSACryptoServiceProvider. 

RSACryptoServiceProvider RSA = new RSACryptoServiceProvider(); 

//Import the RSA Key information. This only needs 
//to include the public key information. 

RSA.ImportParameters(RSAKeylnfo); 

//Encrypt the passed byte array and specify OAEP padding. 

//OAEP padding is only available on Microsoft Windows XP or 
//later. 

return RSA.Encrypt(DataToEncrypt, DoOAEPPadding); 

} 

//Catch and display a CryptographicException 
//to the console. 

catch(CryptographicException e){Console.WriteLine(e.Message);return null;} 

} 

VB.NET: 

Shared Public Function RSAEncrypt)ByVal DataToEncrypt As Byte <()ByVal 
RSAKeylnfo As RSAParameters <ByVal DoOAEPPadding As Boolean (As Byte() 

Try 

'Create a new instance of RSACryptoServiceProvider. 

Dim RSA As RSACryptoServiceProvider = New RSACryptoServiceProvider() 

'Import the RSA Key information. This only needs 
'to include the public key information. 

RSA.ImportParameters(RSAKeyInfo( 

'Encrypt the passed byte array and specify OAEP padding . 

'OAEP padding is only available on Microsoft Windows XP or 
'later . 

Return RSA.Encrypt(DataToEncrypt, DoOAEPPadding( 

'Catch and display a CryptographicException 
'to the console. 

Catch e As CryptographicException 
Console. WriteLine(e.Message( 

Return Nothing 
End Try 
End Function 
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! LuU jJ I jjfSUjJJ JLfU I I i^vjuW 


C#1 

static public byte[] RSADecrypt(byte[] DataToDecrypt, RSAParameters 
RSAKeyInfo,bool DoOAEPPadding) 

{ 

try 

{ 

//Create a new instance of RSACryptoServiceProvider. 
RSACryptoServiceProvider RSA = new RSACryptoServiceProvider(); 

//Import the RSA Key information. This needs 
//to include the private key information. 

RSA. I m portPa ra meters( RSAKeyl nfo); 

//Decrypt the passed byte array and specify OAEP padding. 

//OAEP padding is only available on Microsoft Windows XP or 
//later. 

return RSA.Decrypt(DataToDecrypt, DoOAEPPadding); 

} 

//Catch and display a CryptographicException 
//to the console. 

catch(CryptographicException e){Console.WriteLine(e.ToString());return null;} 

}} 


VB.NET: 

Shared Public Function RSADecrypt)ByVal DataToDecrypt As Byte 1 ()ByVal 
RSAKeylnfo As RSAParameters <ByVal DoOAEPPadding As Boolean (As Byte() 
Try 

'Create a new instance of RSACryptoServiceProvider. 

Dim RSA As RSACryptoServiceProvider = New RSACryptoServiceProvider() 
'Import the RSA Key information. This needs 
'to include the private key information. 

RSA. I m portPa ra meters( RSAKeyl nfo( 

'Decrypt the passed byte array and specify OAEP padding . 

'OAEP padding is only available on Microsoft Windows XP or 
'later . 

Return RSA.Decrypt(DataToDecrypt, DoOAEPPadding( 

'Catch and display a CryptographicException 
'to the console. 

Catch e As CryptographicException 

Console. WriteLine(e.ToString(() 

Return Nothing 
End Try 
End Function 
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c Lt 3 il oULjJI lS^sI s^3 :Hashing algorithms -C 

Message Digest Algorithms /jIjc^jujU 128 bits o^> i_s^I 512 bits algorithm 

Jl^jLjuUU^ L_ajuJI l^JL> ,_^ J| pJLujjJI j. 19 xlo.x, juUU ,jJ Lfli 3 MAC 

sJLcI v_s ^3 Digital Signature Ayo^JI s^sIsJI jJsJ ^3 PasswordsJI v^s^LJ 
.qjoI JSLjJuu DatabaseJI Password ^^oJI AoJ5 Qjp*J ^jct^juuo cAJbJI 
SHA384Managed JI 3 SHA256ManagedJI 3 SHAlManagedJI ^ Jl^lLjuUU^ 
ComputeHash MethodJI />jc*^uuu <^3 Hash Object SHA512ManagedJl3 

: JLijo^ v^sJL lo ^3 byte Array ^s-s ^>^3 hash codeJI 


C#: 

SHAlManaged shaMl = new SHAlManaged (); 

byte[] my_kayl= ASCIIEncoding.ASCII.GetBytes("convert this text to hash code"); 
byte[] hashed_kayl = shaMl.ComputeHash(my_kayl); 
MessageBox.Show(ASCIIEncoding.ASCII.GetString(hashed_kayl)); 

SHA256Managed shaM2 = new SHA256Managed(); 

byte[] my_kay2= ASCIIEncoding.ASCII.GetBytes("convert this text to hash code"); 
byte[] hashed_kay2 = shaM2.ComputeHash(my_kay2); 
MessageBox.Show(ASCIIEncoding.ASCII.GetString(hashed_kay2)); 

SHA384Managed shaM3 = new SHA384Managed (); 

byte[] my_kay3= ASCIIEncoding.ASCII.GetBytes("convert this text to hash code"); 
byte[] hashed_kay3 = shaM3.ComputeHash(my_kay3); 
MessageBox.Show(ASCIIEncoding.ASCII.GetString(hashed_kay3)); 

SHA512Managed shaM4 = new SHA512Managed (); 

byte[] my_kay4= ASCIIEncoding.ASCII.GetBytes("convert this text to hash code"); 
byte[] hashed_kay4 = shaM4.ComputeHash(my_kay4); 
MessageBox.Show(ASCIIEncoding.ASCII.GetString(hashed_kay4)); 

VB.NET: 

Dim shaMl As SHAlManaged = New SHAlManaged 

Dim my_kayl As Byte() = ASCIIEncoding.ASCII.GetBytes("convert this text to 
hash code") 

Dim hashed_kayl As ByteQ = shaMl.ComputeHash(my_kayl) 
Msgbox(ASCIIEncoding.ASCII.GetString(hashed_kayl)) 

Dim shaM2 As SHA256Managed = New SHA256Managed 

Dim my_kay2 As Byte() = ASCIIEncoding.ASCII.GetBytes("convert this text to 

hash code") 

Dim hashed_kay2 As Byte() = shaM2.ComputeHash(my_kay2) 
Msgbox(ASCIIEncoding.ASCII.GetString(hashed_kay2)) 

Dim shaM3 As SHA384Managed = New SHA384Managed 

Dim my_kay3 As Byte() = ASCIIEncoding.ASCII.GetBytes("convert this text to 

hash code") 

Dim hashed_kay3 As Byte() = shaM3.ComputeHash(my_kay3) 
Msgbox(ASCIIEncoding.ASCII.GetString(hashed_kay3)) 

Dim shaM4 As SHA512Managed = New SHA512Managed 

Dim my_kay4 As Byte() = ASCIIEncoding.ASCII.GetBytes("convert this text to 

hash code") 

Dim hashed_kay4 As Byte() = shaM4.ComputeHash(my_kay4) 
Msgbox(ASCIIEncoding.ASCII.GetString(hashed_kay4)) 
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oULof CryptographyJi g* JjoIaJI «uju 5 J-audl IJLd> U*j IjlSL£>3 

Hashing Jl ^Ij b uuujl Lu IaS i ^SymiuJI >*£ ^Lu/„>aJI Data Jl ijdc j+ajuJuJI 
v_s\JUI J*aaJI usvs Caja^JI Ahuu; < CmJ 05JJI ySsS Digital Signature JI3 
.Cjuu 03JJI cuo ussi L^joIJ c«juuuI3 Socket Permission Jl <>c 


V-->LlSJI (JjO CU9;C)JI PJ^juUuJI i_ 5v9 I Ijj3> Jju^oLqJ PjlS JOCajJ 

u^Lsdl Jo I vjJLc JLaJI i^or>i 3I jLajoaa-ajj JI3 I vjJLbJ 

clJUI 
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Chapter 17 
Socket Permissions 

- Permission Namespace Overview 

- Security Action 

- Socket Access property 
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/XjG>jJI CliJ I _/XjuUU 


: Permission Namespace Overview : 17 

Socket Jl 0^3 oL>\LJI ^ gl^l Ai\Li g^j 03-dl ^ Permission NamespaceJI 

... Role- based permissionsJIg Identity PermissionsJl3 permissions 

olotojj ^3 SocketJI />IjcggujI 0L2AL3 jujlxj qjs dLSuoJs :Socket Permission 
ojo-ks SocketPermissionAttribute 3 SocketPermission ^Ijdt^Lr olSL^uJI 
& A.lo A. A. AX j Jliod3 System.Security.Permissions NamespacesJl3 System.NetJI 
dUi /GG3 < Listener ApplicationJI §,0 JLo>\)l 0-0 Client Host Address 
sSjJI HostJI ol^ 3 Access KindJI3 AJLxsdl SocketPermission Attribute 

TCP ci>3jo ;+£ 3I qj>3jo cl3_»jj TransportJI £^3 PortJI />Jj 3 PermissionJI sJLc 

.UDP 3I 

j+c SocketJL loopback 127.0.0.1 AddressJI JL^jI JlioJI \\& ^3 -uj 

./>jcgljuuuoJI SocketJI £_3 j jJdJI ^^13 PortsJI 

[SocketPermission(SecurityAction.Deny, Access="Connect", 
Host="127.0.0.1",Port="AII", Transport="AII")] 


Lodq Ld)-\j )j i^sgJI AJjOJzJI p<v , kx> SecuritvAction obiectJI Lducu 

[SocketPermission(Secur ityAction.J, Access="Connect", 


Assert 


gap Demand 
gap Deny 

gap InheritanceDemand 
g|p LinkDemand 
gap PermitOnly 
g|p RequestMinimum 
gap RequestOptional 
gap RequestRefuse 


aJLjxc d>>! o-° ch^° Client Host ^LoouuJI :Assert 
StackJI cuiJajuo v_s\S gji; v_sgJI ClassesJI gjjoG> i_sJ-c oLg>\L^JI k jj r yJoj v_sglszj 3 iDemand 

Defined Abstracts ^lc.\ 
.Ajjjzx) AjJLixc el>>l o-° Client HostJI gjuo v_so1^3 :Deny 
ClassJI lSjJI ClassJI oLg>\L^JI 1^3 : InheritanceDemand 

.V^JbJI 

.ijc«JI Client UserJI Ijlc AccessJI <^33 : PermitOnly 


225 















: LojS> -\>U r-loouJI gj RjuoJI p<v Access propertyJI 


PortJI 3 IP AddressJI §jo Binding Jxxc o* Client Socket J elo^uJI s\ &^oJ Accept 
Remote HostJI &*> connect Jjxc o-o Client Socket J elo^uJI 3! g^oJ Connect 

.^JlSjoJI 

PortJI f> 3 j 3 PermissionJI sSjJI HostJI ijcu PortJIg HostJI 

q^\L^JI ^Joj tjJLc aJJjJ all AoJJ jjjj*: gJa^uuu Port propertyJI ^3 ) \jj J^uj ^scJI 

( PortsJI g_ux> 

A>lj3 />jl>l^uuuoJI SocketJI gjj 1^9 uj v_soJl3 Transport propertyJI ^ l^lg 

:qJUI oljL^JI 

.Socket TypesJI ^sdc PermessionJI old ,^ 4 ^ il SocketJI ^ °3-V All 

J3S3J3JJ Jlio53 Datagram Protocols SocketJI oulS IJ Connectionless 

.UDP 

J3S3J sjj JLi«)53 Oriented Protocols />jd*^uoj SocketJI oj 15 IJ ConnectionOriented 

.TCP 

.OjjujLuO g4 a J- Jua -' ^ | TCP 

.6j_ujLjO OAjJlSj §4°^^ M UDP 


jxiUjjj c <JjJ 05JJI <uj Socket Permission Jl gjo JjoI&JI «j)>b Luu IjlSL5>3 
05JJI <mj is 3 lejolJLftuuujI^ Multithreading Jl v>e isJUl cjjJI vs\S CojlsJI 

■ CjuU 


vLSJI ,JjO Qu3j$]\ CUujuUuJI v_SvS £<^b<)joJI IjLQi Jju^sLqj JCSlCjuJ 

ij^Lsdl Ji>l t_$JLc JLaj Jl gjj^jJI 3I jLuoaJuuj JI3 I vjJLbJ 

cuJUl 
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Chapter 18 
Packet Sniffer & Row 
Programming 

- Introduction to Row Programming 

- Create a Packet Sniffer Application 

- Using ARP,RARP in Security Programming. 
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Multithreading 


Chapter 19: Multithreading Using & Managing 






Fadi Abdel-qader - Dot Net Networks & TCP/IP Programming 


Chapter 19 
Multithreading 
Using & Managing 

- Introduction to Threading in Dot Net 

- Threading Classes & Members 

- Multithreading & Network Applications 
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Appendixes 


- System.Net Namespace 

- System.Net.Socket Namespace 

- System.Threading Namespace 

- System.Runtime.Remoting 

- System.Runtime.Serialization 





1- System.Net Namespace Classes 

v>03 Web Protocols 3 Transport Layer 3 Application Layer jxc-xj$ 

:I^UIjc*juuuI 3 Classes oi& j*£>\ 


Class 

Description 

Authorization 

Provides authentication messaging for a web server. 

Cookie 

Provides a set of properties and methods used to manage cookies. 
This class cannot be inherited. 

Dns 

Simple domain name resolution functionality. 

EndPoint 

Identifies a network address. This is an abstract class. 

GlobalProxySelection 

Global default proxy instance for all HTTP requests. 

Http Version 

Defines the HTTP version numbers supported by the 
HttpWebRequest and HttpWebResponse classes. 

HttpWebRequest 

HTTP-specific implementation of the WebRequest class. 

HttpWebResponse 

HTTP-specific implementation of the WebResponse class. 

IP Address 

Internet Protocol (IP) address. 

IPEndPoint 

A network endpoint consisting of an IP address and a port 
number. 

IPHostEntry 

Container class for Internet host address information. 

N etworkCredential 

Provides credentials for password-based authentication schemes 
such as basic, digest, NTLM, and Kerberos authentication. 

SocketAddress 

Stores serialized information from EndPoint-derived classes. 

SocketPermission 

Controls rights to make or accept socket connections. 

WebClient 

Provides common methods for sending data to and receiving data 
from a resource identified by a URI. 

WebException 

The exception that is thrown when an error occurs while 
accessing resources via the HTTP protocol. 

WebPermission 

Controls rights to access HTTP Internet resources. 

WebPermissionAttribute 

Specifies permission to access Internet resources. 

WebProxy 

Contains HTTP proxy settings for the WebRequest class. 

WebRequest 

Makes a request to a Uniform Resource Identifier (URI). This 
class is abstract. 

WebResponse 

Provides a response from a Uniform Resource Identifier (URI). 
This class is abstract. 


233 


























2- System.Net.Socket Namespace Classes 

TCP & UDP «i-£>b s Transport LayerJI Qsxjojj c$JLc <_s^ujLujI JiL»Juu 

vsvjl ClassesJI o-os Socket Ptogramming 


Class 

Description 

LingerOption 

Contains information about the amount of time it will remain available 
after closing with the presence of pending data (the socket's linger time). 

MulticastOption 

Contains IP address values for IP multicast packets. 

NetworkStream 

Provides the underlying stream of data for network access. 

Socket 

Implements the Berkeley sockets interface. 

SocketException 

The exception that is thrown when a socket error occurs. 

TcpClient 

Provides client connections for TCP network services. 

TcpListener 

Listens for connections from TCP network clients. This is essentially the 
TCP server class. 

UdpClient 

Provides User Datagram Protocol (UDP) network services. 
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3- System.Threading Namespace Classes 


cboJLJttXjuuuaJI sessionJI (jX. ciJLclrjuo Session JarJ ThreadingJI jDJCUjuU 
System.Threading jo£.Xis Asynchronous JJ >>l vj^JLujI 3^5 £u>U>JI 
IuSsJj ThreadingJI oULox o^bl ^jcoljuoj ClassesJI v>o 


Class 

Description 

AutoResetEvent 

This event notifies one or more waiting threads that an 
event has occurred. 

Interlocked 

This class protects against errors by providing atomic 
operations for variables that are shared by multiple 
threads. 

ManualResetEvent 

This event occurs when notifying one or more waiting 
threads that an event has occurred. 

Monitor 

This class provides a mechanism that synchronizes access 
to objects. 

Mutex 

A synchronization primitive that grants exclusive access to 
a shared resource to only one thread. It can also be used 
for inter-process synchronization. 

ReaderWriterLock 

This class defines a lock that allows single-writer and 
multiple-reader semantics. 

RegisteredW aitHandle 

This class represents a handle that has been registered 
when calling the RegisterWaitForSingleObject() method. 

SynchronizationLockException 

This exception is thrown when a synchronized method is 
invoked from an unsynchronized block of code. 

Thread 

This class creates and controls a thread, sets its priority, 
and gets its status. 

ThreadAbortException 

This exception is thrown when a call is made to the 

Abort() method. 

ThreadExceptionEventArgs 

This class provides data for the ThreadException event. 

ThreadlnterruptedException 

This exception is thrown when a thread is interrupted 
while it is in a waiting state. 

ThreadPool 

This class provides a pool of threads that can be used to 
post work items, process asynchronous I/O, wait on behalf 
of other threads, and process timers. 

ThreadStateException 

This is the exception that is thrown when a thread is in an 
invalid state for the method call. 

Timeout 

This class simply contains a constant integer used when 
we want to specify an infinite amount of time. 

Timer 

This class provides a mechanism for executing methods at 
specified intervals. 

WaitHandle 

This class encapsulates operating system-specific objects 
that wait for exclusive access to shared resources. 
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: Caju 03JJI vssi ThreadingJI ojljil vs \3 jjJdtLujj vssJI MethodsJI 


Public Method Name 

Description 

Abort() 

This overloaded method raises a ThreadAbortException in the 
thread on which it is invoked, to begin the process of 
terminating the thread. Calling this method usually tenninates 
the thread. 

AllocateDataSlot() 

This static method allocates an unnamed data slot on all the 
threads. 

AllocateNamedDataSlot() 

This static method allocates a named data slot on all threads. 

FreeNamedDataSlot() 

This static method frees a previously allocated named data slot. 

GetData() 

This static method retrieves the value from the specified slot on 
the current thread, within the current thread's current domain. 

GetDomain() 

This static method returns the current domain in which the 
current thread is running. 

GetDomainID() 

This static method returns a unique application domain 
identifier. 

GetHashCode() 

This method serves as a hash function for a particular type, 
suitable for use in hashing algorithms and data structures like a 
hash table. 

GetNamedDataSlot() 

This static method looks up a named data slot. 

Interrupt() 

This method interrupts a thread that is in the WaitSleepJoin 
thread state. 

Join() 

This overloaded method blocks the calling thread until a thread 
terminates. 

ResetAbort() 

This static method cancels an Abort() requested for the current 
thread. 

Resume() 

This method resumes a thread that has been suspended. 

SetData() 

This static method sets the data in the specified slot on the 
currently running thread, for that thread's current domain. 

Sleep() 

This static and overloaded method blocks the current thread for 
the specified number of milliseconds. 

SpinWait() 

This static method causes a thread to wait the number of times 
defined by the iterations parameter. 

Start() 

This method causes the operating system to change the state of 
the current instance to ThreadState.Running. 

Suspend() 

This method will either suspend the thread, or if the thread is 
already suspended, has no effect. 
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: ThreadingJU ^>bJI ProparitesJI I <>03 


Public Property 
Name 

Description 

ApartmentState 

Sets or gets the apartment state of this thread. 

CurrentContext 

This static property gets the current context in which the thread is 
executing. 

CurrentCulture 

Sets or gets the culture for the current thread. 

CurrentPrincipal 

This static property sets or gets the thread's current principal. It is 
used for role-based security. 

CurrentThread 

This static property gets the currently running thread. 

CurrentUICulture 

Used at run time, this property sets or gets the current culture used 
by the Resource Manager to look up culture-specific resources. 

IsAlive 

Gets a value that indicates the execution status of the current thread. 

IsBackground 

Sets or gets a value that indicates whether a thread is a background 
thread or not. 

IsThreadPoolThread 

Gets a value indicating whether a thread is part of a thread pool. 

Name 

Sets or gets the name of the thread. 

Priority 

Sets or gets a value that indicates the scheduling priority of a thread. 

ThreadState 

Gets a value that contains the states of the current thread. 
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